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The Radio Shack GENERAL LEDGER System is designed for the 
TRS-80 "32K Business System" consisting of: 

16K Level II Computer with Video Display 

16K Expansion Interface 

2 Mini-Disks 

TRS 80 Line Printer* 

*Tractor feed printer is recommended, but not required. 
Some of the features of the GENERAL LEDGER . . . 

1. User-defined chart of accounts (up to 100 accounts) 

2. User defined 4 digit account numbers. 

3. Automatic "Out-of-Balance" detection. Entry totaling. 
Document balancing. Audit Trials. 

4. Optional Income & Expense Categories. 

5. 16 digit accuracy, with printing totals up to $99,999,999.99 
with internal accuracy to §99 Trillion. 

6. Up to 240 Entries per session, and 1830 entries per month. 

7. Controlled inputs for error prevention, and rapid entries. 

8. Easy error correction, and recovery. 
Provides the following automatic printouts: 

Balance Sheet Income Statement {P & L Statement) 

Trial Balance Monthly Transaction Reports 

Account Chart Posting Summaries 
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Introduction 



To the Company President; 

This manual is designed for the person who will be operating the TRS-80. If your 
company is like most, that operator won't be you. Your time is too valuable. If 
you thumb through this manual, you'll note it was written for someone who may 
know nothing about Computers, or Accounting. Once the system is set up, there 
is very little to do other than feeding the numbers into the TRS-80. As President, 
you will have to make some decisions about the structure, and the accounts you 
want. After that, almost anyone in your company can operate General Ledger 
1.1. The balance of this book is written for your operator. 

To the Person That Will Be Using the System; 

To many people, Accounting is more of an Art than a Science. In practical terms, 
it is merely keeping track of a company's business activities, and judging the 
strength, and weaknesses, on the basis of their record. The record is called a 
"General Ledger". Keeping accurate records is vital to a company. It is impossible 
to get a loan without showing the bank a "Balance Sheet" and a "Profit and Loss 
Statement." Both come from the General Ledger. 

If this is the first time you've used a computer, this manual will make it easy. If 
you arc unfamiliar with Accounting practices, this manual explains each step. 
If you are an accountant, this manual will show you how we've made your life a 
little simpler. 

We will set up a General Ledger System for the "XYZ Company". We will use this 
company as our example throughout the manual. We strongly recommend that 
you use the examples in the manual, and follow along as we step through the 
procedure. This program contains many little tricks that can save you hundreds of 
hours of work during the year, so please bear with us. 

If you want to enter your figures right away, go to the next section which will 
describe the decisions that you must make before entering anything. You must 
start with your books in balance, and your accounts defined in the stated format. 
It would be more helpful if you use our data the first time, because it contains 
most of what you might encounter during a business year, and how to handle it. 
It also shows in detail the little shortcuts built into the system. 

When you've finished the manual, you will have a solid background in using both 
the TRS-80, and the General Ledger program. At that point, wc will show you 
how to prepare the diskettes to handle your own company's General Ledger. 

Note: If you are an independent accountant, the General Ledger Program lets 
you maintain separate sets of hooks for each company you service, A special 
section called "Starting All Over" allows you to create a General Ledger for each 
company to provide personalized reports. 
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What Does the General Ledger Do 



FEATURES: 

1. User defined Chart of Accounts (up to 100 accounts) 

2. User defined 4 Digit Account Numbers 

3. Automatic "Out-of -Balance" Detection 

4. Automatic Entry Totaling 

5. Automatic Document Balancing 

6. Optional Income and Expense Categories 

7. 16 Digit Accuracy 

8. Prints Totals up to $99,999,999.99 (Internal accuracy to $99 Trillion) 

9. Up to 24^ Entries per Work Session 

10. Up to 1830 Entries per Month 

11. Automatic Well-Defined Audit Trails 

12. Controlled Inputs for Error Prevention and Rapid Entries 

13. Printer can be Stopped at Any Time Without Loss of Data 

14. Visually -oriented Editing 

15. Easy Error Correction and Recovery 

16. The General Ledger System will print out several kinds of Records and 
Financial Statements, These include: 

a. Trial Balance 

b. Posting Summaries 

c. Monthly Transaction Reports 

d. Income Statement (Profit & Loss Statement) 

e. Balance Sheet 

f . Chart of Accounts 



How to Use the GL Program Each Day: 



Once the Accounts are set up, the daily operation will probably include: Entering 
Sales Information; Cost-of-Goods Sold figures; Checks; Purchases, Payroll, 
etc.; Printing a Posting Summary. The TRS-80 will do everything else. Once a 
month, with just a few keystrokes, you will prepare an Income Statement, 
and a Balance Sheet. 



Some Decisions You Must Make Before Using GL 



Putting your General Ledger into a computer- requires some modifications to the 
way your Ledger is set up. This is because the computer needs to see some of the 
information in a certain place to keep track of everything. Some of the account 
numbers you are using will have to change to realize all the benefits of the 
TRS-80 General Ledger system. 

The General Ledger program is structured around the use of 4 digit account 
numbers between 1001 and 9999. The program will accept up to 100 of these 4 
digit numbers. 

Some of the account "Types" must be located within specific number ranges. 
These are the specific areas: 

1. The "YEAR-TO-DATE P & L" account number must be between 2001 and 
2999. 

2. The "RETAINED EARNINGS" account number must also be between 2001 
and 2999. (Where you place them within this range is not important to the 
computer.) 

3. All of your Income & Expense accounts must be above 2999. (3000 to 9999) 

4. You must have at least one Income account, and one Expense account. They 
must each be assigned to a category. They cannot have the same category 
number. One of your Income accounts must be assigned to Category 1. 
Your Expense accounts must be assigned to a category between 3 and 6, 

5. There are additional Income & Expense categories that are optional. If you 
want to use these categories to obtain more detailed Income Statements, you 
will have to group your Income & Expense accounts by category, as explained 
in "Dividing Income & Expense Accounts Into Categories". 
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The following is an outline showing the recommended Account Structure: 

Account #: Type of Account: 

1000-1999 ASSETS 

2000-2499 LIABILITIES 

2500-2997 CAPITAL 

2998 YEAR-TO-DATE P&L (Profit & Loss) 

2999 RETAINED EARNINGS 



Some Decisions You Must Make Before Using GL (Continued) 



3000-3999 
4(90^-4999 
5000-9999 



SALES AND INCOME 
COST OF SALES 
EXPENSES 



This structure adheres to generally accepted accounting principles. If you wish to 
depart from this outline for any reason, please check to determine if any of the 
Account Numbers violate the 5 specific rules listed above. 



Creating the Actual General Ledger 



Diskettes can be damaged through contact with magnetic fields, mis-handling, etc. 
To insure against loss of your program, before you begin running General Ledger, 
you should make a copy (BACKUP) of your program diskette, and file it in a 
safe place. You must also prepare (FORMAT) a blank diskette, which will be used 
to store your Chart of Accounts and each month's transactions, Tf you are not 
familiar with BACKUP and FORMAT functions, refer to Appendices 21 and 22 in 
the back of this manual for detailed instructions. 



See Page 



74 
75 

74,75 



Follow these steps in exact order: 

1. Turn on the disk drives, printer, video display, and the Expansion 
Interface. 

2. Insert the Backup Copy of the "GL" in Drive #0. 

3. Insert your data diskette in Drive #1. 

4. Turn on the TRS-80 keyboard. 



The screen will show: 

DOS READY 
HOW MANY FILES?, 
MEMORY SIZE?„ 
READY 



This is what you type: 

flD S S B 83 , press IENTERI . 
press (ENTER), 
press IENTERI 

® EH HI IS tUtH ED EE IB ED , press IenterI 



Run "GLINIT" only the first time you use GL. From then on, run "GL". 
The screen will show: 




Creating the Actual General Ledger (Continued) 



Press the (Y) key. 

The screen will clear, and then show: 




After you follow the instructions, the screen will display: 



:H;;^;v-:» r ;: : ;; : -wiwniM- setup of coi«i^i&t»tiHHJ* 
itKMBHiw WHE '.,'.: ■'■'■ r;r: *"^:;;:: ; 



^KClXSEHT WffE 



<3>-*0»:QI«Jr6flTfe' 



l4>-¥Ef*«0HC«n£P?* : L-flCCt*., ft 



r&mmmEwew&m®.*-. ■.-. » 




Type in the following data exactly as shown: 



COMPANY NAME: 
CURRENT DATE: 
YEAR START DATE: 
YEAR-TO-DATE P & L: 



SHUI DElElHIBBKSIE.and press IENTERI 
HltllZHilfflHSSl.and press IENTERI . 
SJEEIfflEIHElSl.and press IENTERI . 
!2 (S [9) \&\ , and press |ENTER| . 



RETAINED EARNINGS: \2\ @] [1 (9) , and press (ENTER] 
ARE ENTRIESCORRECT: E 



The Computer's Table of Contents 



The Computer's Table of Contents is called a "Master Menu". This is how it 
appears on your screen: 



KY2 COMWW 

GENERflL LEDGER 11 MflSTER MENU 

DRTE: ftl/W/TS 

S>ET TO&RV'S DflTE 
<OflTEG0RY * ft I H T 
<ft> C C U « T 
<P> S T T ft ft 1 



<B> fl L fl N C E 
<E> X I T G E 



> ENTER SELECTION' - 



LEDGER 



This is what each function does: 
<S)ET TODAY'S DATE 

(C)ATEGORY MAINTENANCE 

(A)CCOUNT MAINTENANCE 
(P)OST TRANSACTIONS 

(T)RANSACTION REPORTS 
(I)NCOME STATEMENT 
(B)ALANCE SHEET 

(E)XIT GENERAL LEDGER 



Lets you reset the date for each new work session. 

Allows you to define Income and Expense 
Categories. 

Lets you work on Accounts and print Trial 
Balance. 

This is the function that you will use the most. 
You enter and post your transactions with this 
option. 

Provides a recap of Month-to-Date Transactions. 

This is the company's "Profit & Loss" Statement. 

This is the End-of-the-Month Balance Sheet. You 
print the Balance Sheet after you close-out the 
books for the month. 

Allows you to end the GL program. Always end 
your program with this command . . . never do it 
by simply cutting the power on your system. 



Right now, we are going to start defining our categories. 
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Dividing the Income & Expense Accounts into Categories 



Press E for (C)ATEGORY MAINTENANCE. 



:** &ttEGQRV KHNTCNtttCE '4 1N6WIRV' ** 



CflrrEOORV.t: 
CATEGORY^: 
CflffEGORVj; 
CflnfEQORV 4: 
CflTEGGRV 5: 
CflTEGORY «: 



:0RQSS SfitES 
;C0ST OF Q000S SOLD 
!::«• UNDEFINED ** : 
'>':** UNDEFINED ** . 

** UNDEFINED *»■ 
• ■■'** UNDEFINED *• 



.«"RESS 'ENTER' MR NO GHflNGE. OR ■''«' T&€KiT> 



OBITER CflTEOBW W 3: 



This part of the program lets you set up sub-groupings of income and expenses on 
your Income Statement. You can have up to four sub-groupings, or "categories". 

Notice that Categories 1 and 2 are already assigned by the system to "GROSS 
SALES" and "COST OF GOODS SOLD". If your business is a service business 
(example: a law firm), and you don't have merchandise or goods to sell . . . then 
you probably won't use the "COST OF GOODS" category. In this case, you just 
won't assign any accounts to Category 2 , and it will never appear on reports or 
the screen. 

If you only need one section for Expenses on your Income Statement, then you 
would type something like "GENERAL OVERHEAD" for Category 3. Then, 
when you want to set up your chart of accounts (coming up next) . . . just give 
every applicable expense account a Category 3 number. 



Dividing the Income & Expense Accounts into Categories (Continued) 



Suppose, however, that you want to use several ... or all four of the categories. 
For example, you might want to break down your expenses as follows: 



MANUFACTURER/RETAILER 



IF YOU HAVE A LAW FIRM, ETC. 





Note: If you are a service -based company, you will not assign any account 

numbers to Category 2. Do not use it for anything. {It is designed for Retail/ 
Manufacturing companies to subtract "COST-OF-GOODS SOLD" from their 
"GROSS SALES" to arrive at a Gross Profit.) Just ignore Category 2 — it won't 
ever show up on your printouts, as long as you don't assign any account 
numbers to Category 2. 

The Two Categories You Must Have 

There are two catches to using the Category sub-divisions, 

1 . Remember, regardless of your type of business, if GL is to work correctly, 
you must have at least one Income account assigned to Category 1. Regardless 
of whether you call it "GROSS SALES" or "GROSS REVENUE". If you are a 
manufacturer or retailer, you must also have at least one Expense account 
number assigned to Category 2, "COST-OF-GOODS SOLD". (If you don't, 
you will not get a "Gross Profit" listing in the Income Statement.) A service 
company must have at least one Expense account number assigned to one of 
the other four categories. 

2. If you use the optional categories, you must keep the account numbers in 
sequence and the categories in sequence as well. When accounts are listed in 
numeric order, the categories must be in numeric order too. 
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Dividing the Income & Expense Accounts into Categories (Continued) 



You cannot do this: 



A/C No. Description 



4(901 



Sales Commissions 



Category 
3 
3 
4 
4 
5 
3<— 



< 



4002 Advertising 

4003 Admin. Salaries 

4004 Clerical Salaries 

4005 Factory Labor 

4006 Promotion 

4007 Factory Supplies 

4008 Rent Expense 



Why is this wrong? Look at Account Number 4006. Category Number 3 is 
between a pair of Category 5 accounts. 

Got the idea? When you set up your accounts in numeric order, set up your 
categories in the same order. From low to high, and don't mix them up. Leave 
some unused numbers between your initial account numbers, and between blocks 
of account numbers. That way, you can always add new accounts. Get the 
account numbers and the category numbers to track — as the account numbers go 
up, the category numbers go up too. 

Examples of How to Set Up Categories 

To see an example of the way your categories should be planned, look at the Trial 
Balance print out in the back of the manual. (Appendix 5) 

For our XYZ Company, we will call Category 3, "SELLING EXPENSES", and 
Category 4 will be "GENERAL OVERHEAD". We will leave the last two 
categories undefined, so press IENTER1 two times after you enter Categories 3 & 4. 
When the computer asks if you did everything right, press [2 , which will store the 
new categories, and return you to the Master Menu. 

Before you actually start your own set of books, we strongly urge you to use the 
worksheets we have provided (Appendix 4) to decide on the account numbers and 
categories for your company. Separate worksheets are included for each of the 
five types of accounts. At the top of each worksheet is the recommended account 
number range. 
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How to Store the Account Information in the Computer. 



You are now ready to set up your Chart of Accounts, and enter the beginning 
Trial Balance. On the Master Menu, press |A) , for (A)CCOUNT MAINTENANCE. 
The screen will show the Account Maintenance Menu: 



<«>&[> R .C C :Q IJ U J S : 

' «j>' M 0. U I Rj JE : /J E 1> I T ■ ' • 

<Lt> 1 5 T : ft C C 0. iJ N T s 






. > EKTBt SELfCFiaf : J : 



(A)DD ACCOUNTS 



(I)NQUIRE/EDIT 



(L)IST ACCOUNTS 



(P)RINT TRIAL BALANCE 



8 « L -ft H G Jb : ■ ; . ' 

|-5Te-R'-"»t-»;0' 



This is the function we will use to set up the 
chart of accounts. You will also add any new 
accounts here, when you use your own account 
numbers, later on. 

Use this option to find an existing account. It 
will give you all the information it has about the 
account, and let you make any necessary 
changes to that information. 

This is similar to printing a Trial Balance, except 
it doesn't balance anything — it just lists all the 
accounts you have. 

Prints a list of your accounts, and tries to 
balance them to help you find errors that may 
have occured while entering the account 
information. It suppresses the "Year-to-Date 
P & L" account (in our XYZ Company, it's 
Acct. #2998), since all this account does is show 
the net balance of all income and expense 
accounts. The account is a place for the 
computer to store the year-to-date profit or loss, 
so it can be printed on your balance sheet as 
"Year-to-Date P & L". You must still enter this 
as a "Year-to-Date P & L" account number. It 
has to be a valid account when you are setting 
up your company's books. 
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Adding New Accounts to the Chart of Accounts 



(R)ETURN TO MASTER MENU 



Does just what it says — it takes you back to the 
Computer's Table of Content (back to the start 
of the GL program). 



Since we are going to start our Chart of Accounts, as far as the computer is 
concerned, they are all new accounts. We will press [A| to (A)DD ACCOUNTS. 
The screen will look like this: 



wz cofpflNV 

** BCCOUHT HfilNTEWWCE •* 



SCCOUN? NUMBER 

DESCRIPTION 

TVPE <(Vt/tVI/^) , . , . 

csfTEGQRv a-*) ;..:.. 

PREVIOUS MONTH TRWlj 
CURRENT H0HTH TRBNS . 
VEflfi-TO-WTE TRBNS ,. 



> ENTER ACCOUNT NUMBER : 



ENTER '»' FOR ACCOUNT NUMBER TO EXIT 



We are going to start adding the accounts shown in the list of accounts (Appendix 
6). Since we don't want to forget the two required accounts (YEAR-TO-DATE 
P & L, and RETAINED EARNINGS), let's put those in first. We will go through 
this first account, question by question to explain each line. Here is what you 
will type in response to each question that appears below the dash line on the 
screen: 

Examples of How to Add a New Account 
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ENTER ACCOUNT NUMBER: You type: g] \g\ SJ [g . and press [ENTERl . 

This is pretty straightforward, since you are just entering the new account 
number. 

ENTER DESCRIPTION: Type : j] [ gj g) [A] E H (U Q3 Q (H El B M \B M EH 1] , 

and press lENTERl . 
This is one of the "MUST HAVE" accounts. For examples of other account 
descriptions, check the List of Accounts (Appendix 6). This is the place for the 
name of the account, 

ENTER TYPE (A/L/C/l/E): - You simply press E 

The five types of accounts are Assets, Liabilities, Capital, Income, and Expenses, 

Retained Earnings would be considered a Capital account, so you press [C] . 
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How to Add a New Account (Continued) 



ENTER CATEGORY (1-6):- This question won't appear for this account. 
The category question only comes up for Income or Expense accounts. Because 
we told the computer this was a "CAPITAL" account, it won't ask about a 
category. 
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ENTER PREVIOUS MONTH TRANS: - You simply press lENTERl . for a zero. 
XYZ COMPANY started using the computer January 1, 1979. They closed out 
the books, and decided not to show previous month. If you are transferring your 
company's books to the computer, it's easier if you start at the beginning of the 
company's fiscal year. If you have to start in mid-year, you might put in the 
transactions from the last completed month, as a reference. It is not required by 
the program. 

CUR RENT MONTH TRANS - This is not a question. 

The only way numbers are entered on this line is by posting transactions. We will 

discuss posting in a future chapter, so ignore this line for now. 

ENTER YEAR-TO-DATE TRANS:- Type:g[T] E®] \H ED® ffl , and presslNTER] 
A company always has some Assets, Capital, and Liabilities, so this is a carryover 
from last year. If you're starting in mid-year, you will have to include Income and 
Expenses, as well. 



ARE ALL ENTRIES CORRECT (Y/N)? - This is your chance to review 
everything you have just typed, and make any changes if necessary. Just to get a 
feel for this editing feature, press [N] . Notice the questions start all over again. If 
you press [ENTER! , the computer will assume the line is correct as it appears, and 
will move down to the next line till it gets to the "Are all entries correct" 
question again. If you make an error, type the correct answer when the line comes 
around. It will replace the old value. If you answer [N] , the whole process is 
repeated till you finally answer |Y] . 

Now add account number 2998, using the information in the List of Accounts 
(Appendix 6). Then, starting with account number 1001, add all the accounts 
shown, till you have stored the last account, number 6112, At that point, type an § 
symbol as the account number, and press lENTER) . You are now back at the 
(A)CCOUNT MAINTENANCE Menu. 



46 



13 



14 



Making Changes, or Checking Accounts 



Even though we will not be using this section now, you should be familiar with 
the INQUIRE /EDIT section. You will use this section to delete unused accounts, 
or find a specific account, or make changes to accounts. Press the [D key. 






■ Account 'itu*SR ;;;.':,.::;: : 

•epeRiPTidN ;::.;;!'-.;;.-,: 

tvpe (fviAAW.; ".',: : : i 

.CBTEBWTMi-^'f-' - ; -■.-'■' 
■PBESIHW5-t!|IHJHijW^| ; . : .;'. : 

'cursbk nenig-Timtis- .■.-.-■•■ 
; WHR-TWBIE; fWftS f .- . : ' .' . : ; 



'>■ ENTER:: SaKHDJi:;!:; - 



(F)IND 



(A)DD 



(N)EXT 



(P)REVIOUS 



(E)DIT 



.'<S>efUW;!0:ie«J' 



Lets you find a specific account. To use it, 
Type [F] , and then enter the account number 
you are seeking. 

This puts you back in the (A)DD ACCOUNTS 
mode temporarily, so you can add to your list 
of accounts. If you type an |@1 symbol (to get 
out of the (A)dd mode), you return to the 
INQUIRE/EDIT "Menu", and not the Master 
Menu. 

This brings up the next account in the list of 
accounts, and lets you step through the 
accounts, one at a time. If you want to find the 
first account in your list, you don't have to use 
(F)IND. At the start, simply press [n] to bring up 
the first account. 

The same function as (N)EXT, but in reverse. 
It lets you step backward through the accounts. 
It won't find the last account in the list, but it 
will let you work backwards from the last 
account shown on the screen. 

Allows you to change SOME of the information 
about an existing account. 
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Making Changes, Listing, Trial Balance 



(D)ELETE 



This is a very powerful feature that lets you 
delete an account completely from your chart of 
accounts. If you have any current transactions 
using the account, the program will prevent you 
from deleting the account, since the balance 
sheet would come out wrong. Even after you tell 
the computer to delete an unused account, it 
will ask if you are sure you want to delete. Be 
very careful when deleting. Be sure you 
understand what you're doing. 
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(R)ETURN TO MENU 



Takes you back to the start of the ACCOUNT 
MAINTENANCE Menu. 



At this point, you want to return to the start of ACCOUNT MAINTENANCE, so 
press [R] to get back to the Account Maintenance Menu. 

Getting a List of Accounts 

If you haven't turned on the printer, do it now. We are going to print two reports. 
The first report will be a "List of Accounts", so press E for "LIST ACCOUNTS". 
This report is for you to keep handy so you will be able to find an account when 
you are doing your posting (which is coming up next). When the computer 
asks which accounts you want to list, type (TJOSIIS) BCDtDdlGll. an d 
press Enter]. 



Printing Your First Trial Balance 

After the printer has stopped, tear off the List of Accounts, and press [P] to 
"(P)RINT TRIAL BALANCE". If you entered all the accounts correctly, the 
bottom line "Balance" will be all 0s. If you did it wrong, you will get numbers in 
the first and third transaction columns. Check the Trial Balance example in the 
back of the manual (Appendix 5) account by account, until you find the mistake. 
Use the INQUIRE/EDIT mode to delete the account, and re-enter the account 
with the correct information. Print a new list and a new balance sheet, then press 
M , since we're finished with the ACCOUNT MAINTENANCE section. 
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How to Enter Your Business Transactions 



In the previous section, you have learned how to set up a beginning Chart of 
Accounts, and Trial Balance. You should have your List of Accounts handy, since 
you will be posting to these accounts. We are going to enter the equivalent of one 
month of posting for the XYZ Company, but we will do it in the next few 
minutes. 

Setting the Date 

The XYZ Company posts transactions every 10 days, so the first posting session 
will be on January 10, 1979. That means we have to change the date, so press [S] 
to (S)ET TODAY'S DATE. Enter the date of this first session which is 01/10/79. 

Entering Sales Information 

We are now going to post our accumulated sales through that date, so press [0 
to go to the (P)OST TRANSACTIONS section. The screen will show: 



-. ; mz coupons 1 

;> GEICfiflL LEDCER .TFflNSflCTHW POSTINQ 

::: om- h/ia/ts : session: i 

wcaotr. :;,-;. :-i|«l— .'. 
. F0STIN6 wtTE ;;;;;:■ 
issue wtn .WY- : ■; ; : "-'" 

«mount ... : . .!;;::: ; 



«rt MSESJSWarf; 



mMuiM. '7"v. 



> BOB* l»«e;0F W*ENT t'i- TO EXIT): 



Automatic Numbering of a Session 

SESSION 1 

You'll notice that the screen shows the new correct date. To the right of the date, 
the screen shows "SESSION 1". Each session of posting is automatically 
numbered. This is part of the "Audit Trail" to help you track down a specific 
transaction easily, at any later date. 

Name of the Document 

The next line on the screen says DOCUMENT 1001 — . 

At the bottom of the screen, the program is asking for the name of the document. 
This document name should describe the transaction you are about to enter. We 
will c all Docu ment 1001 our "JAN 10 SALES REPORT". Type in this name, and 
press j ENTER l . 

Since we will be posting this document today, you can simply press JENTERl to 
use the date at the top of the screen as our posting date . 

The ISSUE DATE is for checks and invoices, so just use the same date by pressing 
lENTERl . 
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Entering Both Sides of a Transaction 



See Page 



XYZ Company has sold $15,498.08 worth of products as of January 10 to 
customers on 30 day open account. That means we also have $15,498.08 worth 
of "Accounts Receivable". That has to be balanced against our "30 Day Charge 
Sales" Account. 

For ENTER AMOUNT, we will type [IlEEEEnEE.and press [ENTERl . 
That number will appear under the Issue date to let you know that you must have 
balancing entries which total this amount. What does that mean? It means that 
the positive numbers have to add up to the total, AND the negative amounts must 
also equal the total. The negative numbers and positive numbers must cancel each 
other out. The computer will ask you if the entries are correct. If they are press 

m. 

Note: Every positive total must have a negative, offsetting total. That's how the 
accounts stay in balance. The number of entries is not important. Just so the 
totals balance. 

Important Note: When you ADD to Income, or Liabilities, the figures are always 
negative. This is a fundamental principle of the TRS-80 General Ledger. If you 
remember this point, the rest will be easy. 

The program now asks us to enter the first account number. Type in [DEES], 
and press (ENTER ) . The screen automatically prints the account name, 
"ACCOUNTS RECEIVABLE", and asks for an amount. Since this is a single 
entry amount, you will type Q]ES]EEDEE,and press IENTER) . 

The General Ledger will ask if the entire line is correct in every detail. This is your 
chance to check the entry for errors. If the entry is correct, press [7] . 

Balancing a Transaction 

The number is transferred to the upper half of the screen below the SESSION 1, 
and right below the number, you will see 0.00. That's a computer signal to you 
that you must enter a negative balancing amount, at some point, to balance the 
document . Since w e are balancing to "30 DAY CHARGE SALES", type [DEES: 
and press lENTERl . The TRS-80 will print the name of the account, which is 
"30 DAY CHARGE SALES". 

You must now type in the negative amount which will balance this transaction, so 
type BSESSISiaSlOS. and press lENTERl . The TRS-80 will again ask you 
to check the entire line to be sure it's correct. Did you remember to type a minus 
sign before the number? Is the amount correct? Is it going to the right account? If 
the line is correct, then type a JY| 



Note: If you make an error while posting, see Appendix 1, for correction details. 

The screen shows that DOCUMENT 1001 of SESSION 1 is now completed and in 
balance. Press |ENTE"W1 . The computer is now ready to work on DOCUMENT 1002 
df SESS I ON 1 . Since this Session consists of only one transaction, there will be 
no DOCUMENT 1002. Simply type an © symbol, and press lENTERl . That will 
end this session. 



30 



18 



Testing Before You Post 



The General Ledger Program requires you to print a recap of the session as an 
"AUDIT TRAIL". If the printer is disconnected, or unplugged, or shut off, the 
program will wait till you have turned the printer on. You can now press |ENTER| to 
print the Session Recap. THIS IS NOT AN OPTIONAL REPORT. YOU MUST 
PRINT A SESSION RECAP. KEEP THESE RECAPS AS YOUR PERMANENT FILE. 

After the TRS-80 prints the recap, it will give you one last chance to check your 
entries. If they are wrong, you can cancel the entire session at this point. It will 
not post this session if you type an M . Since we didn't make any errors, we will 
type a E. (If you made an error, type M. You can now redo DOCUMENT 1001.) 
After you press E , you will be returned to the Master Menu. 

Some Examples of Balanced Transactions 

POSTING - SESSION 2 

Today is January 20, 1979, and we are back at the Master Menu. It's time for 
another posting session. Press [s] to set the date to 01/20/79. (Remember to press 
IENTER| after you type in the date.) 

Press [E to return to the (P)OST TRANSACTIONS function. After the computer 
reads the Chart of Accounts into memory, you will see the familiar posting 
format that you saw in SESSION 1 . . . with two significant changes. 

The screen tells you that this is your second work session (SESSION 2), and that 
you are posting to DOCUMENT 1002 this time. These are two of the "AUDIT 
TRAILS" to help you keep things straight. This is the "JAN 20 SALES 
REPORT", so type this in as the name of DOCUMENT 1 002, and press | ENTER | 

XYZ Company has taken in $4,567.09 in cash sales for their products. Most of 
the cash will be put in the bank, and part of the cash will be kept on hand. We 
have deposited $4,000.00 in the bank, and we have $567.09 on hand. Recording 
these activities will be our purpose in SESSION 2. 

Press (ENTER] to use the current date for "POSTING DATE", and press [EMTER] 
again to use it for the "ISSUE DATE". 

The amount will be $4,567.09, so type that in, and press fiNTERl . Check all your 
entries for errors, and if they are correct, type a [Y] . Now we are going to tell 
the computer where the money went to, and where it came from. 

The cash we kept on hand will be noted in Account #1001. That is our "CASH 
ON HAND" account. The rest of the money went into the bank, which is 
Account #1002, "CASH IN BANK". The entire amount is coming from Account 
#3001, "CASH SALES". 
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Examples of Balanced Transactions (Continued) 



See Page 



Here is how your entries should appear: 



ACCT 

e aim hi 

ana hi is 
taaiEiE 



DESCRIPTION 

CASH ON HAND 
CASH IN BANK 
CASH SALES 



AMOUNT Y/N 

e ta s □ ai si h 

B 51 HI E S □ BB @] E 



(Don't forget to press |ENTER| after each account number, and after each 
amount.) 



Note: Here's a little trick if you type the wrong account number by mistake: 

Let's say you typed 2001 by mistake as your first account number. The computer 
is waiting for you to enter an amount to that account number. Don't enter any 
amount. Just press IENTERI . That will take you back to the start of the line. You 
can then type in the correct account number. 

The screen will tell you that DOCUMENT 1002ofSESSION2isin balance, and 
complete. You can press |ENTER] . We will end SESSION 2 by typing an H»] 
symbol, and IENTERI . 

As before, you must print a recap of this session. Simply follow the directions on 
the screen. When you are finished, the program will return you to the Master 
Menu. 
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SESSION 3 

Today is January 31, 1979. Since it is the end of the month, we have some work 
ahead of us, so let's get right to it. At the Master Menu, set today's date to 
01/31/79, and press IENTERI , This is another transaction posting session, so press 

The name of DOCUMENT 1003 will be "JAN 31 SALES REPORT". Type it in, 
and press | ENTER| . Press |ENTER | two more times to use the current date for Posting 
Date and Issue Date. Enter $1,345,54 as the amount to be balanced, and press [ENTER] 

That amount came into XYZ Company from sales made with credit cards. You 
received the credit card company's check, and you deposited it in the bank. Now, 
you are going to record the transaction in the General Ledger. Here is the 
sequence you will follow: 
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Examples of Balanced Transactions (Continued) 



The screen will look like this when you finish: 



DQCUfOIT . : . . , 
POSTING DfiTE:. 

isaue twrs: . ; 



■ XY2 COH^HV 
GBCftflL LEDGER TRf^EHCT 

orte: $1/11/79 

:ieflj'— -W 31 SH.ES « 

: : ■ . I,, 145. 54 



BT1NS- 
SESSION: 2 



: 1, 245. 54 

i,'34S.S4- 



■ ftCCr DESCRIPTION: . 

. lass .cash: in sink ■ ■ 

. 3063 CREDIT- CW» SALES 



ffl10WT(C« -? 
1, 345. 34 
1, .34S 54- 



** micunent esLwicED — press -ernes' to continue ** . 



You can finish SESSION 3 in the same manner as before. Take a quick break 
while the computer does the recap, and session posting. When we return to the 
Master Menu, we will post a "COST-OF-GOODS SOLD" transaction in the next 
Transaction Posting session. Don't skip the next few sections, even if you work 
for a service-based company, such as a law firm. We are going to show you some 
tricks that are built into the General Ledger Program, to save you a lot of time 
when you're posting transactions. 

Type a [Y] to let the computer know that all the information you have entered so 
far is correct. Type Q] LH LS LD , and press |ENTER| , for the "CASH IN BANK" 
account. Enter the $1,345.54 in that account, to let the computer know where 
the money went. (Remember to press lENTERj after the amount.) Type a E if 
the line is correct . Type [3] [g] \E g] for the "CREDIT CARD SALES" account, 
and press IENTERJ . Now, type in the balancing amount (the same amount with a 
minus sign in front of it), and press |ENTER | , and then press H to tell the 
computer the line is correct. 
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Entering Your Cost-of-Goods Sold Transactions 



SESSION 4 

It's still January 31, 1979, so you don't have to change the date. Simply press (£] , 
DOCUMENT 1004 will be named "COST OF GOODS SOLD", so type that in, 
and press |ENTERI , For the dates, use the same trick as the previous sessions. 

We now have to record the cost of the inventory that we sold in the 3 previous 
sessions. This is not the total selling price, it is how much the products that we 
sold cost us. We have to balance cost for the sales against our Inventory. We are 
going to enter the information as we did before, but with one difference. 

What To Do if You Don't Know the Total Amount 

This time we don't know the total we are going to use, or how much we are going 
to subtract from our inventory. What do we do? We just let the TRS-80 do the 
calculating for us, and tell us what the amount should be. Here's how it works: 
The program is asking us for an amount, but we don't know the amount. Type a 
O , and press JENTER| . The screen informs us that the amount is unknown, and 
lets us know the computer is aware of that fact. Now type in these accounts and 
figures : 
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ACCT DESCRIPTION 

3101 COST OF SALES/CASH 

3102 COST OF SALES/CHG 

3 1 03 COST OF SALES/ CR CD 



AMOUNT 

2106.18 

8102.06 

645.16 



Y/N 

Y 
Y 
Y 



These three amounts represent the cost-of-goods sold, for the sales that XYZ 
Company made. If you look at the screen, just under the Session number, you'll 
see that the TRS-80 has been keeping a running total of our entries. Now we 
know how much to take out of our "MERCHANDISE INVENTORY" account. 
We also know our balancing amount which was listed as "UN KNOWN" at the 
start of this session. Our final entry should balance DOCUMENT 1004. 



Here is the missing last entry: 

ACCT DESCRIPTION 

1 005 MDSE INVENTORY 



AMOUNT 

-10853.40 



Y/N 
Y 



(Don't forget to press I ENTER! after the first two items, and don't forget to put a 
minus sign in front of the amount of this entry.) You can now end SESSION 4 
in the usual manner. After you have done the Recap, and the posting, we will do 
a Session of checks, with a few more tricks to add to your list. 
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Entering the Checks You've Written 



SESSION 5 

In this session, we are going to post all the checks that we have written in the last 
month. We will show you how to include the check numbers, the date the check 
was issued, and a shortcut for transactions with two unknowns. If you are ready 
to start Session 5, press [P| to return to the Transaction Posting section. 

We will show you how to do the first few documents in this session, and then you 
can do the remaining documents on your own, using the information we will give 
you. This session consists of 14 separate documents. (We have shown you 
examples of several entries per document — now you will try several documents 
in one session.) 

HOW TO KEEP TRACK OF THE CHECK NUMBERS 

When posting checks, two additional facts must be included in each document. 
What was the check number, and when was it written (the issue date)? We can 
include the check number right in the name of the document. Our first check was 
check number 101. We paid $82.45 to the "Fort Worth Star Telegram" for a 
newspaper ad. We wrote the check on January 5, 1979. This transaction will be 
our first document. We will also let the computer do a little more calculating for 
us to save time. 

The name of DOCUMENT 1005 will be "101 FW STAR TELEGRAM". The 101 
in front of the name gives us a record of the check number. Type this in and press 
lENTERl . It is still January 31, 1979, so press IENTERI to use the current date as 
the Posting Date, 

We wrote the check on January 5, 1979, and that is the date we will use as the 
Issue date. Type BE) H El SI [H , and press lENTERl , Issue date should show: 
1 /05 , Even though we know the amount, type a , and press IENTERI . Why? 
Because it saves time by not typing all the numbers. 

The $82.45 will be charged to our "ADVERTISING" expense account. That will 
be our first entry. Type @] IB O ffl . ^d press lENTERl . The amount is $82.45. 
Type that in, and press |ENTERJ . Type a [7] if the line is correct, 

MAKE THE COMPUTER TOTAL THE CHECKS 

This is where we let the computer do the rest of the work. Type [U 08 E£ \Z\ , and 
press lENTERl . That's our "CASH IN BANK" account, which will balance out this 
document. Instead of typing in the negative amount, just type a Qj] , and press 
IENTERI , By typing a question mark, you told the computer, "OK, I've given you 
all the positive numbers. You give me the negative total, and balance the 
transaction," The computer sees that you are waiting for an answer to fill in 
Account number 1002. It knows you have entered a positive amount already, so 
you must be ready to balance the transaction . Now all you do is press E , The 
computer inserts the correct amount in the "UN KNOWN" amount line, enters the 
negative amount in the Bank Account, and balances the document. Press IENTERI 
to go to the next document, and let's do another transaction. 
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Let the Computer Do the Balancing 



See Page 



The second E] you type may be used on your LAST entry, to make the computer 
halance your document. Even if your balancing AMOUNT is known, you can 
save time by using the {7} to balance the document. 

In DOCUMENT 1006, we will record that XYZ COMPANY wrote check 1(32 to 
MARY SMITH. The check was a commission check for $345.23. So the 
document name will be "102 MARY SMITH". The check issue date was January 
8, 1979. 



This is what your entries will look like: 



DOCUMENT NAME 

POSTING DATE 

ISSUE DATE 

AMOUNT 

ENTRIES CORRECT 

ACCT 

AMOUNT 

Y/N 

ACCT 

AMOUNT 

Y/N 



ffl ID HDH EltSEICNSHIIIBDE] (Don't forget to 
press |ENTER| ) 



Press 1ENTERI 

U H H GE [S , and press |ENTER ] 

Type a [7] , and press lENTERl 

Press (3 

S3 CD 13 S)> and press | ENTER) 

E S [5] □ g] [3 , and press lENTERl 

Press [Y] 

LTJ GH S3 [2 , and press lENTERl 

\7\ , press lENTERl 

Press [Y] 



Document 1006 is now balanced, so press [ENTERl to go on to Document Xtytyl . 
At this point you should be getting the idea of posting. The rest of SESSION 5 
you can enter by yourself, using the data in Appendix 11. After you have entered 
all the documents, complete the session in the usual manner. 
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Entering Other Types of Documents 



SESSION 6 

You're ready to try this session by yourself. All the information you need for this 
session will be found in Appendix 12. Enter all the documents, and try to use the 
questions marks to save time. 

Notice in this session that the last two documents carry the description . . . 
ACCT REC JOURNAL 
PURCHASES JOURNAL 

This is just a sample entry which indicates that you might have another journal 
(manual or computer) where all "Accounts Receivable" invoices are listed and 
totaled, and this entry to the GENERAL LEDGER represents the summary 
amounts from that journal. Or, you might keep all "Merchandise Purchases" on 
a separate journal, and the same process applies. The possibilities are really up to 
you, and the way you want to keep your own accounting records. 

This is the last posting session for the month. After you have printed your recap 
and posted the session, you will be ready to print a complete record of the 
month's transactions. 
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How to Print a Record of the Month's Documents 
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Yuu are now ready to ask for some reports of the month's transactions, so press 
[B , and the screen will show: 



:«™«5«T1Q« REITS'* ^ 

■;;.■■ . :mrEiwum^3 •]:][ ■'■■■- ■•■■■•■ y. r 

:i<Rx:-c4%'*itrinn'::- 3 :E :8 :M :? :N $ *i :: 

«»0:C^*IE«^1>'.^-a:.r;.s:El«:0X;I(:q^; 

; ; <i» C :T AJ * "N T S 3t l<i U -)lJ ;« ;* ;T ^ ;'* - ; i H -* -* ?** ; 



By Account, or Document Number 

You will want to print your transactions in account number sequence (as shown 
in Appendix 13), so press S and the printer will begin to print your report. This 
is a primary part of your accounting records, and should be carefully and 
systematically filed. When the report is finished, you should press E] if you want 
a printout by document number of all documents entered this month. You will 
already have this information in your session recaps, but you might want the 
whole month on one printout. If you want this printout, press [5] , If you are 
following our XYZ COMPANY example, your printout should match Appendices 
13 and 14. 
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When you arc ready to go on, press M to return to the Master Menu. Before you 
print your financial statements for the month, it is a good idea to print a Trial 
Balance. Just press (A) at the Master Menu to enter the (A)ccount Maintenance 
section. When the Account Maintenance Menu appears, simply press (H in order 
to print your Trial Balance. The XYZ COMPANY end-of-month Trial Balance is 
in Appendix 15. Once the Trial Balance has printed, press [R] to return to the 
Master Menu. 
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How to Produce an Income Statement 



Press CD (that's just about all you have to type). W hen you are asked to enter the 
ENDING DATE FOR THE PERIOD, simply press 1 ENTER] . Remember, unless 
you are told otherwise, pressing ]ENTER| for a date will use the current date. 
That's all there is to it. Your printout should match Appendix 16. At the end of 
the printout the computer will automatically bring us to the next section which 
is: 

Closing a Month 

Since this is the end of the month, you will answer HHIS] to the question END 
OF MONTH (YES/NO). If you had typed j§G [0] , you will be returned to the 
Master Menu, and the month will not be closed. 

Now the program will ask you if this is the END OF THE YE AR ALS O 
(YES/NO). Since it is only January 31, type JN] ED , and press |ENTER| . 

Closing a Year 

Answer both of the above questions [Y] [E] [S\ . 
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Generating a Balance Sheet 



At the end of both of these closings, your computer will ask if you WANT TO 
PRINT A BALANCE SHEET (Y/N). This is usually where you will print the 
Balance Sheet, because a Balance Sheet will be OUT OF BALANCE until you do 
a closing. There might be times during a month when someone might request a 
Balance Sheet. You can simply print one by pressing HO at the Master Menu 
without doing a closing. Just be aware that an OUT OF BALANCE condition will 
occur if you haven't done a closing or if you posted an invalid document. 

When you request a Balance Sheet, the program will ask you whether you want a 
one page or two page Balance Sheet. Press for a single page Balance Sheet, press 
[T] for a two page Balance Sheet, or press M to exit to the Master Menu. If you 
have a lot of Assets and Liabilities, you will probably want to print a two page 
Balance Sheet (try both ways and see which looks nicer). 



Except for a few details, you have completed the General Ledger Manual, and you 
have learned how to use the Radio Shack General Ledger Program. From here on, 
everything is easy. The important thing is that you did the books correctly, and 
you got a feel for using the computer to save time, and eliminate a lot of tedious 
entering. In the back of this manual are examples of every printout, so you can 
compare your printouts to the examples. They should be identical. 

The next section of the book is very important. It will tell you how to erase 
everything we have done, so that you can enter your own company's information. 
You will learn how to take care of the diskettes, and how to rotate them so you 
have "backup" copies in case something happens to one of the diskettes. 

The last section tells you how to convert the previous General Ledger 1.(9, so it 
will work with this new 1.1 version. 

We sincerely hope this manual has been of some assistance to you in learning the 
General Ledger system. We realize that we may have overlooked some things. If 
we have, we apologize. Nothing in life is ever perfect, but if we have helped make 
your life a little easier, then we have done our job. 

The Radio Shack General Ledger is only one part of a comprehensive series of 

related business programs which will include: 

Inventory Control 

Payroll 

Accounts Receivable /Pay able 

and a wide range of programs for specific business applications such as: 

Real Estate Analysis Construction Surveying 

Statistical Analysis Stock Market Attorney Time Keeping 
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Starting All Over 



Once you have finished playing with your GENERAL LEDGER 1.1 and want to 
do some REAL work, it is quite simple to start over again. Just follow these steps: 

1. Place your General Ledger diskettes in drives (9 and 1. Turn on the computer 
in the usual fashion. You should see a DOS READY on the screen. 



2. Type [Kl m[DOn[gg1 plfO. and press lENTERI . 

3. Type E CDB BDlG] OQ] [QlPtE], and press [ENTIH]. 

4. Type B g]{D tDPfBl IE) IT] W [D E . and press lENTERl . 



5. Type IKimfEIIDniGlfDKilSltSlfTlfEltRl.and press fENTERI . 

(If the screen shows; FILE NOT IN DIRECTORY, and you've spelled every- 
thing right, then don't worry about it, go on to the next KILL command. You 
never created the file in the first place. These files are created as you enter 
data.) 

6. You are all set to start over again. At this point, go to the section titled 
"Creating the Actual General Ledger", and run "GLINIT". 

Each time you create a ledger for a company, the first program you must RUN is 
GLINIT. This is described in the "Creating the Actual General Ledger" section. 
Run GLINIT only once per company. Run GL from then on to use the General 
Ledger, 



* NOTE TO ACCOUNTANTS * 

For each company you set up, you will need two diskettes. The first diskette will 
be a BACKUP copy of your original General Ledger diskette which comes in this 
manual. (The original General Ledger diskette should NEVER be used to actually 
run the General Ledger program. It is only used for copying.) The second diskette 
is used to store transactions and the chart of accounts. Each data diskette MUST 
be FORMATTED before use. 
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Appendix 1 — Correcting Document Errors 



This section is primarily concerned with the correction of Posting errors. Most 
errors that occur in the account or category sections can be corrected by simply 
voiding the old entry, and creating a new correct entry, or account. Transaction 
Posting is a bit more difficult, since there are many places for errors to occur 
during a normal period of posting. Here are several error situations, and how to 
recover from them: 

IF YOU ENTER THE WRONG AMOUNT FOR THE ENTRY TOTAL: 

1. After you enter the amount, the program asks you if all entries are 
correct. This is your first chance to correct the error. Press [N] , 

2. Type in the account information (using the error amount) and balance the 
document with your second entry. Print a Posting Summary. When the 
program asks if you want to post this session, press [N] . You will return to 
the start of the same session. Now you can enter the correct figures. 

3. If the overall amount is too low, you can use two documents to post the 
correct amount. Post the low amount in the first document, and post the 
rest of the amount in the next document. Both documents must be 
balanced. 

4. If the overall amount is too high, and you've made a lot of entries to this 
document, you probably don't want to cancel all your efforts. Here's a 
little trick; Finish all the normal entries, using the correct figures. Now 
you're at the point where the document would be in balance, except for 
the error. OK, pick an account, any account. Type in the account number, 
and the amount of the error. (Not the whole amount, just how much 
you went over the correct amount.) Press [Yj to let the computer know the 
line is correct. For the next entry, type in the SAME account number, and 
enter the minus amount of the error. Presto, the document is balanced, 
and you can go on to the next document. What about the crazy amount 
in that last account? Don't worry about it. We put some money into it, 
and took it right back out. It won't even show up on your balance sheet, 
or income statement. You can indicate what you did on the posting recap. 

IF YOU DISCOVER AN ERROR AFTER YOU HAVE POSTED A SESSION: 

Here is the document you typed: 

DOCUMENT 1020- FEB 10 SALES REPORT 
1003 ACCOUNTS RECEIVABLE 15498.80 

3002 30 DAY CHG SALES -15498.80 

**DOCUMENT BALANCED** 
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Appendix 1 — Correcting Documents Errors (Continued) 



Let's say you used the wrong amounts for this document, and you already 
posted that session. The amount should have been $15498.08, and you used 
$15498.80. You have to correct the 72 cent error, This is what you do: In 
the next available session, we will reverse the amounts in the new document, 
to cancel out Document 1020. Let's say it's Session 12. Here is what you 
type: 

document 1041 - m \B M E 13 EH E D P El © □ a E 01 E W 

CDUdtllACCOUNTS RECEIVABLE g Q] U H) BD 31 □ E ffi] 
tUB] II® 30 DAY CHG SALES H HI 33 IE IS □ BS IB 

**D0CUMENT BALANCED** 

We have now canceled out Document 1020. Now we can call Document 1042 
CORRECTED DOC. 1020, and we can enter the right amounts this time. 
Anyone can follow what happened at any time, and the books are now 
correct. 
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Appendix 2 — Error Messages, and What They Mean 



Program will not accept your input 

You are trying to enter information the program doesn't want, or you are 
using the wrong format. Dates should be entered as MM/DD/YY, Amounts 
should be entered as 000.00. For menu options, type the requested letter. 



*■■* 



RETAINED EARNINGS AND YEAR-TO-DATE P& L MUST BE DIFFERENT ** 
Both accounts have the same account number. One of the accounts must be 
changed to a different account number. 

** ACCOUNT # MUST BE BETWEEN 2001 AND 2999 ** 

You attempted to assign RETAINED EARNINGS or YEAR-TO-DATE P & L 
to an account number below 2001 or above 2999. Assign a number within the 
specified range. 

'* 100 ACCOUNTS ALREADY IN FILE ** 

You have reached the maximum account capacity of GL 1.1. Go back to the 
INQUIRE/EDIT mode, and delete any unnecessary accounts, or combine 
some accounts. 

** ACCOUNT 0000 MUST BE (A)DDED ** 

You tried to return to the Master Menu without adding Retained Earnings or 
Y ear-to -Date P & L. Select (A)DD ACCOUNTS and enter them. 



*-* 



* ■* 



ACCOUNT NOT FOUND ** 

(F)IND couldn't find the requested account. Check for a possible typing 
error. 

ACCOUNT EXISTS ** 
You tried to (A)DD an account which had already been typed in. The existing 
account is automatically displayed for your inspection. 

?? EDIT WHAT?? 

?? DELETE WHAT?? 

The computer doesn't know what to edit or delete because there is no 
account specified. Use (F)IND or (N)EXT to select the desired account, 

** FIRST ACCOUNT ** 

There are no (P)REVIOUS accounts. This is the first. 

** LAST ACCOUNT ** 

There is no (N)EXT account. This is the last account. 

** ACCOUNT IN USE - CANT DELETE ** 

The computer refuses to (D)ELETE the requested account. A transaction has 
been posted to that account and deleting it would put you out of balance. 
You may delete the account after the month has been closed, and you have 
printed an Income Statement. 
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Appendix 2 - Error Messages, and What They Mean (Continued) 



** RETAINED EARNINGS AND Y-T-DP&L MUST BE CAPITAL ACCOUNTS ** 
While (A)DDing your Retained Earnings or Year-to-Date P&L accounts, you 
entered an account TYPE of something other than CAPITAL, Press [C] for 
account TYPE. 

** INCOME & EXPENSE ACCOUNTS MUST BE OVER 2999 ** 

You pressed either CD or E as the account TYPE of an account with a 
number below 3000. All Income and Expense accounts must be numbered 
3000 to 9999. 

** PRINTER NOT READY ** 

Your line printer is disconnected, turned off, out of paper, or the PRINT 
switch on the front of the printer is off. Fix your printer and press |ENTER| , 

** NOT FOUND ** 

You requested a transaction to be performed with a non-existent account, 

** INVALID ** 

If you try to add entries that exceed the amount you originally specified as 
your total amount, the computer will not accept the number. It will also print 
an INVALID if you try to enter a {7} as your first entry without having an 
amount to balance against. 

> ARE YOU SURE (Y/N)? 

A double -check for trouble areas. It gives you one more chance to determine 
if you really want to do what you requested. Go very slow if you see this 
question. 

** THIS IS ONLY FISCAL MONTH NUMBER 00 

> ARE YOU SURE YOU WANT A YEAR END CLOSING (YES/NO)? 

You are trying to do a year end closing before the end of the fiscal year. This 
is a double-check to make sure you have a valid reason for doing this. 

'** OUT OF BALANCE ** 

Somewhere along the month's postings, you have created an out of balance 
condition. Go back and check the recaps. The amount you're out of balance 
may help pinpoint the problem entry. 
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Appendix 3 — Upgrading GL 1.0 to GL 1.1 



1. Insert the General Ledger 1.1 Master diskette in Drive #0, and close the door. 

2. Insert the 1.0 General Ledger Diskette in Drive #1, and close the door. 

3. Press the Reset button on the left rear apron of the TRS-80 keyhoard. 

4. When DO S READ Y appears, type EJ (E SI □ © HI H E 0GOII EOClE HEUIHl, 
and press [ENTER | - 

5. Typegas aE EID B3 EB1 Bl 101 IB [DfJIDgl BDEllDgl g£| S3 EtZltg] ■ 

and press | ENTER] . 
fi. Remove the GL 1 .$ diskette from Drive #1 , and insert your 1.0 Data diskette. 

7. Type [61 [A] [si [T! Icl . and press [ENTER] , 

8. Press lENTERl twice when asked HOW MANY FILES? and MEMORY SIZE? 

9. Type E KB (H E®E Q, and press (ENTER]- 

10. When the Master Menu appears, press [A] for (A)CCOUNT MAINTENANCE. 

11. Under ACCOUNT MAINTENANCE, press tJJ for the (I)NQUIRE/EDIT 
function, 

12. Change the RETAINED EARNINGS account, and YEAR-TO-DATE P & L 
accounts to CAPITAL accounts. Add any other CAPITAL accounts. 

13. After you make the required changes, return to the Master Menu, and resume 
normal operations. 

14. You are now using the GENERAL LEDGER 1.1 Program. 
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Appendix 4 



ASSETS WORKSHEET ACCOUNT RANGE: 1000-1999 



ACCT. 


DESCRIPTION 


PREVIOUS MONTH 


YEAR-TO-DATE 
























































































































^ . — ™_ 
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ASSETS WORKSHEET ACCOUNT RANGE: 1000-1999 



ACCT. 


DESCRIPTION 


PREVIOUS MONTH 


YEAR TO- DATE 
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Appendix 4 



LIABILITIES WORKSHEET ACCOUNT RANGE: 2000-2499 



ACCT. 


DESCRIPTION 


PREVIOUS MONTH 


YEAR-TO-DATE 
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LIABILITIES WORKSHEET ACCOUNT RANGE: 2000-2499 



ACCT. 


DESCRIPTION 


PREVIOUS MONTH 


YEAR-TO-DATE 
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Appendix 4 



CAPITAL WORKSHEET 



ACCOUNT RANGE: 2500-2999 



ACCT. 


DESCRIPTION 


PREVIOUS MONTH 


YEAR-TO-DATE 




YEAR-TO-DATE P& L 








RETAINED EARNINGS 
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CAPITAL WORKSHEET ACCOUNT RANGE: 2500-2999 



ACCT. 


DESCRIPTION 


PREVIOUS MONTH 


YEAR-TO-DATE 




YEAR-TO-DATE P&L 








RETAINED EARNINGS 







































































































































































































40 



Appendix 4 



INCOME WORKSHEET ACCOUNT RANGE: 3000 & up 



ACCT. 


DESCRIPTION 


CATE- 
GORY 


PREVIOUS MONTH 


YEAR-TO-DATE 







































































































































































































































































41 



Appendix 4 



INCOME WORKSHEET ACCOUNT RANGE: 3000 & up 



ACCT. 


DESCRIPTION 


CATE- 
GORY 


PREVIOUS MONTH 


YEAR-TO-DATE 
















































































































































> 
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Appendix 4 



EXPENSE WORKSHEET ACCOUNT RANGE: 3000 & up 



CATE- 
GORY 



ACCT. 


DESCRIPTION 


2-6 


PREVIOUS MONTH 


YEAR-TO-DATE 
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Appendix 4 



EXPENSE WORKSHEET ACCOUNT RANGE: 3000 & up 



ACCT. 



DESCRIPTION 



CATE- 
GORY 
2-6 PREVIOUS MONTH YEAR-TO-DATE 



. 
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Appendix 5 



PAGE 1 



XVZ COMPANY 

GENERAL LEDGER TRIAL BALANCE 

DATE: 01/81/79 



FICCT 
NO. DESCRIPTION 



ACCT CAT, TRANSACTION ACTIVITY 

TVPE CODE PREVIOUS MO. CURRENT MO. VEAR TO DATE 



1091 CASH ON HAND A 

1602 CASH IN BRNK A 

1663 ACCOUNTS RECEIVABLE A 

1664 BAD DEBT ALLOWANCE A 
1605 MDSE INVENTORY A 
1006 FIXED ASSETS A 
166? DEPR ALLOWANCE A 
2001 ACCOUNTS PAVA8LE L 
2602 TAXES WITHHELD L 

2003 NOTES PAYABLE L 

2004 ACCRUED PAYROLL L 

2005 ACCRUED TAXES L 

2501 COMMON STOCK C 

2502 PREFERED STOCK C 

2503 TREASURY STOCK C 
2393 RETAINED EARNINGS C 
3091 CASH SALES I 1 
3602 30 DAY CHG SALES I 1 
3003 CREDIT CARD SALES I 1 

3161 COST OF SALES/CASH E 2 

3162 COST OF SALES/CHG E 2 
3103 COST OF SRLES/CR CD E 2 
4161 ADVERTISING E 3 

4102 COMMISSIONS E 3 

4103 PROMOTION E 3 

4104 PUBLICITY E 3 

5101 SALESMEN'S SALARIES E 3 

5102 CLERICAL SALARIES E 4 
5163 ADMIN SALARIES E 4 
5104 MANAGEMENT SALARIES E 4 

6101 COMPUTER FEES E 4 

6102 DUES & SUBSCRIPTIONS E 4 

6163 AUTO EXPENSES E 4 

6164 RENT EXPENSE E 4 

6165 UTILITIES E 4 
6106 TAXES E 4 
619? DEPRECIATION E 4 

6108 ACCOUNTING E 4 

6109 LEGRL FEES E 4 

6110 INTEREST E 4 

6111 SUPPLIES E 4 

6112 TRAVEL E 4 

BALANCE = 



6. 00 
0. 60 
0. 00 
0. 00 

0. 06 
0. 00 
0.60 
0. 00 

0. 00 
0. 00 

0.88 

8. 00 

8, 08 

0. 66 

0. 00 

0. 86 
8. 66 
0. 06 
0. 00 
0. 00 

0.00 
0. 80 
0. 00 
0. 00 
0. 00 
00 
0. 60 
0. 08 
0.00 
8.00 

0. 86 

8. 00 

6. 00 
0. 66 
6. 60 
8. 80 
0. 06 
8. 00 
0. 86 
8. 66 
8. 88 
8. 00 

8. 66 



0. 00 
8. 60 
8. 00 
8. 68 

6. 00 

0. 00 

0. 08 
8. 60 

0. 00 

8, 08 

0. 00 
0. 00 
0. 00 
0. 00 
0. 00 
0. 88 
8. 00 
0. 00 
0. 00 
0. 00 
8. 08 
0. 00 
0. 00 
0. 00 
6. 00 
8. 00 
0. 00 
6. 00 
6. 08 
8. 60 

0. 80 

0. 00 
0. 00 
0. 00 
0. 00 
0. 00 
0. 00 
8, 08 
0. 66 
6. 00 

0. 88 

0. 00 

0. 00 



667. 09 

5, 248. 68 
15, 498. 68 

500, 00- 

22, 146. 60 

11, 600. 00 

3, 250. 08- 

17, 25? 89- 

1, 866. 00- 

6, 056. 80- 

1, 309. 23- 
766. 43- 

5.- 006. 00- 

3, 000. 00- 

2, 000. 00 

17, 926. 30- 

60 
0, 00 
0.00 
0. 00 
6. 00 
0.00 
0. 08 

0. 86 
6. 86 
6. 66 
6.68 
6. 88 
6. 86 
8. 00 
0. 00 

8. 08 
6. 00 

0. 00 
0. 00 
0. 00 
6. 08 
6. 00 

0. 06 
0. 86 
0. 66 
6. 80 

6. 06 
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Appendix 6 



PAGE 1 



XY2 COMPANY 

GENERAL LEDGER ACCOUNT LI; 

DATE: 01/01/79 



flCCT 

NO. 


ACCT 
DESCRIPTION TVPE 


CAT. 
CODE 


—-TRANSACT I ON ACT I ' 

PREVIOUS MO. CURRENT MO. 


YEAR 


TO DATE 


1001 


CRSH ON HAND 


R 


~ 


0. 00 


0. 00 




667. 89 


1002 


CASH IN BANK 


A 


- 


0. 00 


8. 00 


5 


248. 88 


1003 


ACCOUNTS RECEIVABLE 


A 


- 


0. 60 


0. 88 


15. 


498 88 


1@@4 


BRD DEBT ALLOWANCE 


R 


- 


0, SO 


0. 88 




588. 86- 


1005 


MDSE INVENTORY 


A 


- 


0. SO 


0.00 


22, 


146. 68 


1006 


FIXED ASSETS 


A 


- 


0. 08 


0, 80 


11. 


808. 88 


100? 


DEPR ALLOWANCE 


A 


- 


0. 00 


0. 00 


2f 


250. 86- 


2001 


ACCOUNTS PAYABLE 


L 


- 


0. 00 


0. 80 


17. 


257. 89- 


2002 


TAXES WITHHELD 


L 


- 


0. 6S 


0. 80 


1. 


008. 08- 


2603 


NOTES PAYRBLE 


L 


- 


0. 00 


0.08 


6. 


056. OO- 


2004 


ACCRUED PRVROLL 


t 

!_ 


- 


0. 00 


0. 88 


1. 


809 23- 


2005 


ACCRUED TAXES 


L 


- 


0. 00 


9. 80 




766, 43- 


2501 


COMMON STOCK 


C 


- 


0. 00 


0. 00 


-Jl 


808. 00- 


2502 


PREFERED STOCK 


c 


- 


O, 00 


0. 00 


-; 


080. 88- 


2503 


TREASURY STOCK 


c 


- 


0. 00 


08 




888. 88 


2998 


VERR-TO-DATE P & L 


c 


- 


0. 00 


0. 88 




8. 88 


2339 


RETAINED EARNINGS 


c 


- 


0. 00 


0. 80 


17, 


928. 38- 


3001 


CASH SALES 


I 


1 


0.00 


8. 08 




0. 08 


3082 


30 DRY CHG SRLES 


I 


1 


0, 00 


8. 09 




8. 06 


3S03 


CREDIT CARD SALES 


I 


1 


0. 00 


8. 88 




0. 08 


3101 


COST OF SRLES/CRSH 


E 


o 


0. 00 


O. 00 




8. 68 


3102 


COST OF SALES/CHG 


E 


2 


0. 00 


a. 00 




8. 88 


3103 


COST OF SALES/CR CD 


E 


2 


0. 00 


0. 88 




8. 80 


4101 


ADVERTISING 


E 


i 


00 


8. 88 




8. 88 


4102 


COMMISSIONS 


E 


3 


0. 00 


0. 00 




8. 80 


4103 


PROMOTION 


E 


■^ 


0. 00 


9. 08 




8. 80 


4164 


PUBLICITY 


E 


3 


0. 09 


0. 00 




6. 88 


5101 


SALESMEN'S SALARIES 


E 


3 


0. 00 


8. 08 




0. 88 


51S2 


CLERICAL SALARIES 


E 


4 


0. 09 


0. 08 




0. 88 


5103 


ADMIN SALARIES 


E 


4 


0. 80 


0. 00 




8. 88 


5104 


MANAGEMENT SALARIES 


E 


4 


6. 00 


0. 60 




6. 88 


6101 


COMPUTER FEES 


E 


4 


0. 00 


0. 88 




6 68 


6102 


DUES « SUBSCRIPTIONS 


E 


4 


0. 00 


0. 00 




0.00 


6103 


RUTO EXPENSES 


E 


4 


0. 00 


8. 88 




0. 60 


6104 


RENT EXPENSE 


E 


4 


0.00 


8. 00 




0. 80 


6105 


UTILITIES 


E 


4 


0. 00 


0. 80 




0. 80 


6106 


TAXES 


E 


4 


0. 00 


0. 00 




6. 88 


6187 


DEPRECIATION 


E 


4 


0. 00 


0.00 




8. 86 


6108 


ACCOUNTING 


E 


4 


0. 00 


8. 88 




0. 08 


6109 


LEGAL FEES 


E 


4 


0. OS 


8. 00 




0. 60 


6110 


INTEREST 




4 


0. 00 


8. 08 




8.80 


6111 


SUPPLIES 


E 


4 


0. 00 


8. 88 




6. 66 


6112 


TRAVEL 


E 


4 


0. 80 


8. 88 




6. 68 



46 



Appendix 7 



SESSION 1 



PAGE 1 



XYZ COMPANY 

GENERAL LEDGER POSTING SUMMARY 

DATE: 91/18/79 



DOCUMENT SEQUENCE 

ACCT 
NO. DESCRIPTION 



ACCT 
TYPE 



ENTRY POSTING ISSUE 
TYPE DATE DATE 



AMOUNT 



** DOCUMENT: 1881 — JAN 10 SALES REPORT 
1603 ACCOUNTS RECEIVABLE A M 81/18/79 01/10 
3082 30 DAY CHG SALES I M 81/18/79 81/18 

TOTAL 



15, 498. 88 
15, 498. 88- 

6. 08 ** 



SESSION TOTAL 9. 88 
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SESSION 1 PRGE 2 
XVZ COMPANV 

GENERAL LEDGER POSTING SUMNP.RV 
DRTE: 01/10/79 



ACCOUNT SUMMflRV 

ACCT NO. DESCRIPTION AMOUNT 



1903 ACCOUNTS RECEIVABLE 15,433.68 
3982 38' DRV CHG SALES 15, 498. 98- 

TOTRL 0. 00 
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A ,. SESSION 2 PRGE 1 

Appendix 8 X vz comprnv 

GENERRL LEDGER POSTING SUMMRRV 
DATE: 81/28/79 

DOCUMENT SEQUENCE 

RCCT RCCT ENTRV POSTING ISSUE 

NO. DESCRIPTION TVFE TVPE DATE DRTE AMOUNT 



** DOCUMENT: 1962 — JRN 29 SALES REPORT 
1601 CASH ON HRND A M 61/26/73 61/26 567. 69 

1662 CASH IN BANK R M 01/26/79 01/26 4, 696. 06 

3991 CASH SALES I M 01/20/79 91/20 4, 567. 99- 

TOTAL 9. 09 ** 

*** *** **** *** ******** ****** 

SESSION TOTAL 6. 96 
*************************** 
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SESSION 2 



PAGE 2 



ACCOUNT SUHMARV 
flCCT NO. DESCRIPTION 



XV2 COMPANY 

GENERAL LEDGER POSTING SUMMARY 

DATE: 61/20/79 



AMOUNT 



1001 


CASH ON HAND 


567. 89 


1002 


CASH IN BANK 


4, 000. 00 


2001 


CASH SALES 


4, 567. 69- 



TOTAL 0. 80 
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Appendix 9 



SESSION 3 



PAGE 1 



XVZ COMPANV 

GENERAL LEDGER POSTING SUMMARV 

DATE: 01/21/79 



DOCUMENT SEQUENCE 

ACCT 

NO DESCRIPTION 



ACCT ENTRV POSTING ISSUE 
TVPE TVPE DATE DATE 



AMOUNT 



** DOCUMENT: 1863 — JAN 31 SALES REPORT 
1002 CASH IN BANK A M 61/31/79 81/31 
3863 CREDIT CARD SALES I M 81/31/79 81/31 

TOTAL 



1, 345. 54 
1, 345. 54- 
8. 08 ** 



SESSION TOTAL 88 
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SESSION 3 



XVZ COMPANY 

GENERAL LEDGER POSTING SUMMARY 

DATE: 01/31/79 



PAGE 2 



ACCOUNT SUMMARY 



ACCT NO. DESCRIPTION 



AMOUNT 



1962 CASH IN BANK 

3062 CREDIT CARD SRLES 



1, 345. 54 
1, 345. 54- 



9|i jfOf£ Jft ?fC JfCsff 3|C Jff ^iff ]|0|t Jft]|(3|(9|t JfEjjCSf 1 ! IftlfCSf 1 ! Sf^JfCSp Sfi 

TOTAL 6. 00 
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Appendix 10 



SESSION 4 



WZ COMPANY 

GENERAL LEDGER POSTING SUMMARY 

DATE: 81/31/79 



PAGE 1 



DOCUMENT SEQUENCE 

RCCT 
NO. DESCRIPTION 



ACCT ENTRY POSTING ISSUE 
TVPE TYPE DATE DATE 



AMOUNT 



** DOCUMENT: 1084 ~ COST OF GOODS SOLD 
3161 COST OF SALES/CASH 
2102 COST OF SALES/CHG 
3103 COST OF SALES/CR CD 
1S05 MDSE INVENTORY 



E 


M 


81/31/79 


01/31 


2, 186. 18 


E 


M 


81/31/79 


01/31 


8. 102. 06 


E 


M 


81/31/79 


01/31 


645. 16 


A 


M 


01/31/79 


81/31 
TOTAL 


10, 853. 40- 

0. 00 ** 



SESSION TOTAL 0. 00 
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SESSION 4 



PRGE 2 



ACCOUNT SUMMHRV 



RCCT NO. DESCRIPTION 



XVZ COHPflNV 

GENERRL LEDGER POSTING SUMMRRV 

DATE: 01/21/79 



RMOUNT 



1005 


ItDSE INVENTORY 


la 853. 40- 


3131 


COST OF SRLES/CRSH 


2, 106. 18 


3102 


COST OF SRLES/CHG 


8, 102. 06 


3103 


COST OF SRLES/CR CD 


645. 16 



TOTRL 0. 00 



54 



Appendix 11 



SESSION 5 



XY2 COMPANY 

GENERRL LEDGER POSTING SUMMRRY 

DRTE: 01/31/79 



PRGE 1 



DOCUMENT SEQUENCE 



RCCT 
NO. DESCRIPTION 




RCCT 
TVPE 


ENTRY 
TYPE 


POSTING 

DATE 


ISSUE 
DRTE 


RMOUNT 




** DOCUMENT: 1905 — 
4101 RDVERTISING 
1802 CRSH IN BRNK 


101 


FW STAR TELEGRAM 

E M 01/11/79 
fl M 01/31/79 


01/05 
01/05 

TOTAL 


82.45 
82. 45- 

0. 00 


** 


** DOCUMENT: 1006 — 
4102 COMMISSIONS 
1002 CRSH IN BRNK 


102 


MARY ! 
E 
fl 


SMITH 

M 
M 


01/31/79 
01/31/79 


91/08 

01/08 

TOTAL 


345. 23 
345. 23- 

8. 00 


** 


** DOCUMENT: 1007 — 
4103 PROMOTION 
1002 CRSH IN BANK 


103 ACME i 
E 

A 


SUPPLIES 

M 01/31/79 
M 01/31/79 


01/10 

81/10 

TOTAL 


45.67 

45. 67- 

8. 96 


** 


** DOCUMENT; 1008 — 164 BUSINESS NEEK 
6102 DUES « SUBSCRIPTIONS E M 01/31/73 
1002 CASH IN BRNK fl M 91/31/79 


81/12 

81/12 
TOTAL 


36. 06 
36. 06- 

0. 00 


** 


** DOCUMENT: 1009 — 
4104 PUBLICITY 
1082 CRSH IN BRNK 


105 


RORCH 
E 
ft 


PUBLIC 
M 
M 


REL 

01/31/79 

01/31/79 


01/13 
01/13 
TOTAL 


180 98 
166. 08- 

0. 00 


** 


** DOCUMENT: 1810 — 186 
5181 SRLESMEN'S SRLRRIES 
1002 CASH IN BRNK 


JRCK : 
E 
fl 


5RYLES 
M 
M 


01/31/79 
01/31/79 


01/14 
01/14 
TOTRL 


588. 08 

508. 00- 

8. 00 


#* 


** DOCUMENT: 1011 -- 107 
5104 MANAGEMENT SRLRRIES 
1802 CRSH IN BANK 


MARTY 
E 
R 


MANAGER 

M 81/31/79 
M 91/31/79 


81/15 
81/15 
TOTAL 


987. 78 
987. 78- 
8. 68 


** 


** DOCUMENT: 1812 — 
6101 COMPUTER FEES 
1002 CRSH IN BANK 


108 


TECH COMPUTERS 

E M 01/31/79 
A M 01/31/79 


01/16 
61/16 
TOTAL 


1, 234. 45 
1, 234. 45- 
6. 88 


** 


** DOCUMENT: 1013 ~ 
6183 RUTO EXPENSES 
1002 CASH IN BRNK 


109 


MOBIL 
E 
fl 


OIL 
M 
M 


81/31/79 
81/31/79 


01/18 
81/18 
TOTRL 


134. 34 
134. 34- 

0. 08 


** 


** DOCUMENT: 1014 — 
6184 RENT EXPENSE 
1002 CASH IN BRNK 


110 


ASSOC 
E 
fl 


REALTY 
M 
M 


01/31/79 
81/31/79 


01/20 

81/28 
TOTRL 


1, 234. 34 
1, 234. 34- 
6. 86 


+* 
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SESSION 5 PAGE 2 
XVZ COMPANY 
GENERAL LEDGER POSTING SUMMARY 

DATE: 01/31/79 



DOCUMENT SEQUENCE 



ACCT 
NO. DESCRIPTION 




ACCT ENTRY POSTING 
TYPE TYPE DATE 


ISSUE 
DATE 


AMOUNT 






** DOCUMENT: 1015 — 
6105 UTILITIES 
1002 CASH IN BANK 


111 


TEXAS ELECTRIC 

E M 81/31/79 

A M 61/31/79 


61/24 

01/24 
TOTAL 


348. 98 
348. 98- 
8, 88 


** 




** DOCUMENT: 1016 — 
6111 SUPPLIES 
1092 CASH IN BANK 


112 


STANDARD OFFICE 

E M 61/31/79 
A M 01/31/79 


01/28 
81/28 

TOTAL 


3.22 
3. 22- 

0. 80 


** 




** DOCUMENT:. 1017 — 
6112 TRAVEL 
1902 CASH IN BANK 


113 


PERCY'S TOURS 

E M 61/31/79 
A M 01/31/79 


01/25 
01/25 
TOTAL 


45.00 
45. 06- 

8. 00 


** 




** DOCUMENT: 1618 — 
1606 FIXED ASSETS 
1862 CASH IN BANK 


114 


CAPITAL EQUIP CO 

A M 61/31/79 
A M 01/31/79 


01/25 
01/25 
TOTAL 


1, 960. 80 
1, 066. 00- 
8. 00 


** 





SESSION TOTAL O. 88 



56 



SESSION 5 



PAGE 3 



RCCOUNT SUMMARY 



RCCT HO. DESCRIPTION 



XVZ COMPANY 

GENERAL LEDGER POSTING SUMMRRY 

DATE: 81/31/73 



AMOUNT 



1002 


CRSH IN BRNK 


6, 097. 46- 


1806 


FIXED RSSETS 


1> 000. 00 


4181 


ADVERTISING 


32. 45 


4162 


COMMISSIONS 


345. 23 


4103 


PROMOTION 


45. 6? 


4104 


PUBLICITY 


100. 90 


5101 


SALESMEN'S SRL ARIES 


500. OS 


3104 


MANAGEMENT SRL ARIES 


987, 78 


6101 


COMPUTER FEES 


1, 234. 45 


6102 


DUES A SUBSCRIPTIONS 


36.00 


6163 


AUTO EXPENSES 


134. 34 


6104 


RENT EXPENSE 


1. 234. 34 


6105 


UTILITIES 


348. 98 


6111 


SUPPLIES 


3.22 


6112 


TRAVEL 


45. OO 



TOTAL 08 
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Appendix 12 



SESSION 6 



XYZ COMPANY 

GENERAL LEDGER POSTING SUMMARY 

DATE: 01/31/79 



PAGE 1 



DOCUMENT SEQUENCE 



ACCT ACCT 
NO. DESCRIPTION TVPE 


ENTRV 
TYPE 


POSTING 
DATE 


ISSUE 
DATE 


AMOUNT 




** DOCUMENT: 1019 — PRVROLL REGISTER 
5102 CLERICAL SALARIES E M 
2984 ACCRUED PAVROLL L M 


01/31/79 
81/31/79 


01/31 
81/21 
TOTAL 


432. 56 
432. 56- 

0. 00 


** 


** DOCUMENT: 1028 — PAVROLL REGISTER 
5103 ADMIN SALARIES E M 
2004 ACCRUED PAVROLL L M 


01/31/79 
01/31/79 


01/31 
01/31 
TOTAL 


876. 67 
876. 67- 

0. 08 


** 


** DOCUMENT: 1821 — JAN P/R TAX 
6186 TAXES E M 
2885 ACCRUED TAXES L M 


81/31/79 
81/31/79 


01/31 
81/31 
TOTAL 


166. 43 
166. 43- 

0. 08 


*# 


** DOCUMENT: 1622 — PRICE & WATERS 
6108 ACCOUNTING E M 
2081 ACCOUNTS PAVAELE L M 


01/31/79 
81/31/79 


01/31 
81/31 
TOTAL 


880. 06 
800. 88- 
0. 00 


** 


** DOCUMENT: 1823 — DUDLEV LEGALMfiN 
6103 LEGAL FEES E M 
2801 ACCOUNTS PAVAELE L H 


01/31/79 
01/31/79 


01/31 
01/31 
TOTAL 


457. 83 
457. 83- 

8. 00 


** 


** DOCUMENT: 1024 ~ DEPR SHEDULE 
6187 DEPRECIATION E M 
1007 DEPR ALLOWANCE A M 


01/31/73 
81/31/73 


01/31 
81/31 
TOTAL 


250. 88 
250. 08- 
0. 80 


** 


** DOCUMENT: 1825 « 1ST NATL 
6118 INTEREST E 
2803 NOTES PAYABLE L 


BANK 
M 
M 


01/31/79 
01/31/79 


01/31 
01/31 
TOTAL 


56.08 
56. 00- 

0. 08 


** 


** DOCUMENT: 1026 ~ ACCT REC 
1082 CASH IN BANK A 
1003 ACCOUNTS RECEIVABLE A 


JOURNAL 
M 
M 


81/31/79 
01/31/79 


81/31 
01/31 
TOTAL 


5, 088. 08 
5, 800. 00- 

8. 00 


** 


** DOCUMENT: 1027 — PURCHASE 
1085 MDSE INVENTORY A 

2801 ACCOUNTS PAYABLE L 


JOURNAL 
M 
M 


01/31/73 
01/31/79 


01/31 
81/31 
TOTAL 


8, 000. 00 
8, 008. 80- 

0. 60 


** 
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SESSION TOTAL 0. 06 



ACCOUNT SUMMRRY 



SESSION 6 



PRGE 2 



XVZ COMPflNV 

GENERAL LEDGER POSTING SUMMARY 

DRTE: 01/31/75 



fiCCT NO. DESCRIPTION 



AMOUNT 



1S02 


CASH IN BRNK 


5, 000. 00 


1003 


ACCOUNTS RECEIVABLE 


5, 000. 00- 


1065 


MDSE INVENTORY 


8-. 000. 00 


1007 


DEPR ALLOWANCE 


250. 00- 


2001 


ACCOUNTS PAYABLE 


9, 257. 89 


2003 


NOTES PAYABLE 


56.60 


2O04 


ACCRUED PRVROLL 


1, 309. 23' 


2005 


ACCRUED TAXES 


166. 43' 


5102 


CLERICAL SRLRRIES 


432. 56 


5103 


RDMIN SALARIES 


876. 67 


£136 


TAXES 


166. 43 


6107 


DEPRECIATION 


250. 00 


6108 


ACCOUNTING 


BO0. 00 


6109 


LEGAL FEES 


457. 89 


6116 


INTEREST 


56.00 



TOTRL 0. 00 
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Appendix 13 



PAGE 1 



XVZ COMPflNV 

MONTHLY TRANSACTIONS REPORT 

DATE: 01/31/79 



ACCOUNT NO. SEQUENCE 
DOCUMENT DESCRIPTION 



AMOUNT 



60 



** ACCT 


1801 CASH ON HAND 




A ** 




1002 


JAN 28 SALES REPORT 


M 


81/20/79 
TOTAL 


567. 89 
567. 89 


** RCCT 


1082 CASH IN BANK 




A ** 




1082 


JAN 20 SALES REPORT 


M 


01/28/79 


4.. 808. 08 


1003 


JAN 31 SALES REPORT 


M 


01/31/73 


1, 345. 54 


1005 


181 FW STAR TELEGRAM 


M 


01/31/79 


82. 45- 


1086 


102 MARV SMITH 


M 


81/31/79 


345. 23- 


1007 


103 ACME SUPPLIES 


M 


01/31/73 


45. 67- 


1008 


184 BUSINESS WEEK 


M 


01/31/73 


36. 00- 


1009 


105 ROACH PUBLIC REL 


M 


81/31/79 


188. 88- 


1010 


106 JACK SAVLES 


M 


81/31/73 


588. 88- 


1011 


187 MRRTY MANAGER 


M 


01/31/79 


387. 78- 


1012 


108 TECH COMPUTERS 


M 


01/31/73 


1, 234. 45- 


1013 


109 MOBIL OIL 


M 


81/31/79 


134. 34- 


1014 


110 ASSOC REfiLTV 


M 


01/31/79 


1.. 234. 34- 


1015 


111 TEXAS ELECTRIC 


M 


01/31/79 


348. 98- 


1016 


112 STANDARD OFFICE 


M 


01/31/73 


3. 22- 


1017 


113 PERCY'S TOURS 


M 


81/31/73 


45. 88- 


1018 


114 CAPITAL EQUIP CO 


M 


01/31/79 


1, 000. 00- 


1026 


ACCT REC JOURNAL 


M 


01/31/73 
TOTAL 


5, 000. 00 

4, 248. 88 


** RCCT 


1083 ACCOUNTS RECEIVABLE 


A ** 




1001 


JAN 10 SALES REPORT 


M 


81/10/79 


15, 498. 08 


1826 


ACCT REC JOURNAL 


M 


01/31/73 
TOTAL 


5.. 800. 00- 
10, 498. OS 


** ACCT 


1085 MDSE INVENTORY 




A ** 




1804 


COST OF GOODS SOLD 


M 


01/31/73 


16* 853. 48- 


1827 


PURCHASE JOURNAL 


M 


01/31/73 


8, 800. 80 




- 




TOTRL 


2, 853. 40- 


** ACCT 


1806 FIXED ASSETS 




A ** 




1018 


114 CAPITAL EQUIP CO 


M 


01/31/73 
TOTAL 


1, 000. 00 

1, 008. 08 


** ACCT 


1807 DEPR ALLOWANCE 




A ** 




1824 


DEPR SHEDULE 


M 


01/31/73 
TOTAL 


250. 00- 
250. 80- 


** ACCT 


2001 ACCOUNTS PRVABLE 




L ** 




1022 


PRICE & WATERS 


M 


01/31/73 


800. 00- 


1823 


DUDLEV LEGRLMAN 


M 


01/31/73 


457. 89- 


1827 


PURCHASE JOURNAL 


M 


81/31/79 
TOTAL 


8, 808. 08- 

9, 257. 89- 


** ACCT 


2003 NOTES PRVABLE 




L ** 




1825 
k 


1ST NATL BANK 


M 


01/31/73 
TOTAL 


56. 80- 
56. 88- 



PAGE 2 



WZ COMPRNY 

MONTHLY TRANSACTIONS REPORT 

DRTE: 01/31/79 



ACCOUNT NO. SEQUENCE 
DOCUMENT DESCRIPTION 



AMOUNT 



** RCCT 
1019 

1020 


2804 ACCRUED PAYROLL 
PAYROLL REGISTER 
PAYROLL REGISTER 


M 
M 


L ** 

01/31/79 

01/31/79 

TOTAL 


432. 56- 

876. 67- 

1, 309. 23- 


** RCCT 
1821 


2005 ACCRUED TAXES 
JRN P/R TRX 


M 


L ** 

01/31/79 
TOTRL 


166. 43- 
166. 43- 


** RCCT 
1002 


3001 CRSH SRLES 
JRN 20 SRLES REPORT 


M 


I ** 

01/26/79 
TOTRL 


4, 567. 09- 
4. 567. 09- 


** RCCT 

1001 


3002 30 DRY CHG SALES 
JAN 10 SRLES REPORT 


M 


I ** 

O1/10/79 
TOTRL 


15, 498. 08- 

15, 498. 08- 


** RCCT 

1003 


3003 CREDIT CARD SRLES 
JAN 31 SRLES REPORT M 


I ** 

01/31/79 
TOTAL 


1, 345. 54- 
1, 345. 54- 


** RCCT 

1004 


3101 COST OF SALES/CRSH 
COST OF GOODS SOLD M 


E ** 

01/31/79 
TOTRL 


2> 106. 18 
2, 106. 18 


** RCCT 

1004 


3102 COST OF SRLES/CHG 
COST OF GOODS SOLD M 


E ** 
81/31/79 
TOTRL 


8, 102. 06 
8, 102. 06 


** RCCT 

1004 


3103 COST OF SfiLES/CR 
COST OF GOODS SOLD 


CD 
M 


E ** 

01/31/79 
TOTRL 


645. 16 
645. 16 


** RCCT 

1005 


4101 ADVERTISING 
101 FW STRR TELEGRAM 


M 


E ** 
81/31/79 
TOTRL 


82.45 
82.45 


** RCCT 

1006 


4102 COMMISSIONS 
102 MARY SMITH 


M 


E ** 

01/31/79 
TOTRL 


345. 23 
345. 23 


** RCCT 

1007 


4103 PROMOTION 
103 ACME SUPPLIES 


M 


E ** 

01/31/79 
TOTAL 


45.67 
45. 67 


** RCCT 

1009 


4104 PUBLICITY 

105 ROACH PUBLIC REL 


M 


E ** 

01/31/79 
TOTRL 


100. 00 
100. 80 
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** RCCT 5101 SRLESMEN'S SALARIES E ** 



ACCOUNT NO. SEQUENCE 



XVZ COMPANY 

MONTHLY TRANSACTIONS REPORT 

DATE: 01/31/79 



PAGE K 



DOCUMENT DESCRIPTION 

101O 106 JACK SAYLES M 



AMOUNT 



** ACCT 5102 CLERICAL SALARIES 

1013 PAYROLL REGISTER M 

** ACCT 5103 ADMIN SALARIES 

1820 PAYROLL REGISTER M 



** ACCT 5184 MANAGEMENT SALARIES 
1011 187 MARTY MANAGER M 



** ACCT 6101 COMPUTER FEES 

1812 188 TECH COMPUTERS M 

** ACCT 6102 DUES & SUBSCRIPTIONS 

1803 184 BUSINESS WEEK M 

** ACCT 6103 AUTO EXPENSES 

1013 103 MOBIL OIL M 

** ACCT 6104 RENT EXPENSE 

1014 110 ASSOC REALTY M 



** ACCT 6185 UTILITIES 
1815 111 TEXAS ELECTRIC 



** ACCT 6106 TAXES 
1021 JAN P/R TAX 



** ACCT 6107 DEPRECIATION 
1024 DEPR 



** ACCT 6168 ACCOUNTING 
1022 PRICE & HATERS 



** ACCT 6189 LEGAL FEES 
1823 DUDLEY LEGALMAN 



61/31/79 


508. 08 


TOTAL 


580. 80 


E ** 




81/31/79 


432. 56 


TOTAL 


432. 56 


E ** 




01/31/79 


S76. 67 


TOTAL 


876. 67 


E ** 




81/31/79 


987. 78 


TOTAL 


987. 78 


E ** 




81/31/79 


1, 234. 45 


TOTAL 


1, 234. 45 


E ** 




81/31/79 


36.89 


TOTAL 


36. SO 


E ** 




01/31/79 


134. 34 


TOTAL 


134. 34 


E ** 




01/31/79 


1, 234. 34 


TOTAL 


1, 234. 34 


E ** 




01/31/79 


348. 38 


TOTAL 


343. 98 


E ** 




01/31/79 


166. 43 


TOTAL 


166. 43 


E ** 




01/31/79 


250. 00 


TOTAL 


250. OO 


E ** 




01/31/79 


888. 88 


TOTAL 


300. 80 


E ** 




01/31/79 


457. 83 


TOTAL 


457. 39 
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** ACCT 6110 INTEREST 



E ** 



PRGE 4 



XVZ COMPANY 

MONTHLY TRANSACTIONS REPORT 

DATE: 01/31/79 



ACCOUNT NO. SEQUENCE 
DOCUMENT DESCRIPTION 



*************************** 

TOTAL 0. 00 

*************************** 



AMOUNT 



1025 


1ST NATL BANK 


M 


81/31/79 

TOTAL 


56. 89 
56. 00 


** ACCT 


6111 SUPPLIES 




E ** 




1016 


112 STANDARD OFFICE 


M 


01/31/79 
TOTAL 


3.22 
3. 22 


** flCCT 


6112 TRAVEL 




E ** 




1017 


113 PERCY'S TOURS 


M 


01/31/79 
TOTAL 


45.00 
45.00 
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Appendix 14 wz C0MPRNV 

MONTHLY TRANSACTIONS REPORT 
DATE: 61/31/79 
DOCUMENT NO. SEQUENCE 

RCCT DESCRIPTION AMOUNT 



PAGE 1 



** DOCUMENT 10O1 JAN 10 SALES REPORT M ** 

1003 ACCOUNTS RECEIVABLE A 01/10/73 15,438 OS 

3002 30 DAY CHG SALES I 01/10/73 15, 433. 08- 

TOTAL 0. 00 

** DOCUMENT 1002 JAN 20 SALES REPORT M ** 

1001 CASH ON HAND A 01/20/79 567. 09 

1002 CASH IN BANK A 01/20/73 4,000 00 
3001 CASH SALES I 01/20/79 4, 567. 09- 

TOTAL 0, 90 ** 

** DOCUMENT 1003 JAN 31 SALES REPORT M ** 

1S02 CASH IN BANK A 01/31/79 1,345 54 

3003 CREDIT CARD SALES I 01/31/79 1, 345. 54- 

TOTAL 0. 00 

** DOCUMENT 10O4 COST OF GOODS SOLD M ** 

3101 COST OF SALES/CASH E 01/31/73 2> 106 18 

3162 COST OF SALES/CHG E 01/31/73 8, 102. 66 

3163 COST OF SALES/CR CD E 01/31/73 645. 16 
1005 MDSE INVENTORY A 01/31/73 10,853. 48- 

TOTAL 0. 00 

** DOCUMENT 1005 181 FW STAR TELEGRAM M ** 

4101 ADVERTISING E 01/31/79 82 45 
1002 CASH IN BANK A 01/31/79 82. 45- 

TOTfiL O. 80 

** DOCUMENT 10*6 102 MARV SMITH M ** 

4102 COMMISSIONS E 01/31/73 345 23 
1082 CASH IN BANK A 01/31/79 345. 23- 

TOTAL 8. 80 

** DOCUMENT 1067 103 ACME SUPPLIES M ** 

4103 PROMOTION E 81/31/79 45 67 
1802 CASH IN BANK A 81/31/73 45. 67- 

TOTAL 0. 00 

** DOCUMENT 1008 104 BUSINESS WEEK M ** 

6102 DUES & SUBSCRIPTIONS E 01/31/73 36 08 

1002 CASH IN BANK A 01/31/73 36. 00- 

TOTAL 0. 08 

** DOCUMENT 1009 105 ROACH PUBLIC REL M ** 

4104 PUBLICITY E 81/31/73 100 80 
1862 CASH IN BANK A 01/31/73 108. 06- 

TOTAL 0. 66 

** DOCUMENT 1618 166 JACK SAVLES M ** 

5161 SALESMEN'S SALARIES E 81/31/79 500 06 
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DOCUMENT NO. SEQUENCE 



XYZ COMPANY 

MONTHLY TRANSACTIONS REPORT 

DATE: 61/31/79 



PAGE 2 



RCCT 



DESCRIPTION 



AMOUNT 



1002 



CASH IN BANK 



01/31/79 
TOTAL 



** DOCUMENT 1011 107 MRRTV MANAGER M ** 
5104 MANAGEMENT SALARIES E 81/31/79 
1002 CASH IN BANK A 01/31/79 

TOTAL 

** DOCUMENT 1012 100 TECH COMPUTERS M ** 
6181 COMPUTER FEES E 61/31/79 
1002 CASH IN BANK A 01/31/79 

TOTAL 



** DOCUMENT 1013 169 MOBIL OIL 
6103 AUTO EXPENSES E 
1O02 CASH IN BANK A 



** DOCUMENT 1014 110 ASSOC REALTV 
6104 RENT EXPENSE E 

1O02 CASH IN BANK fl 



M ** 
61/31/79 
01/31/79 
TOTRL 

N ** 
01/31/79 
01/31/79 
TOTAL 



** DOCUMENT 1015 111 TEXAS ELECTRIC M ** 
6105 UTILITIES E 01/31/79 

1002 CASH IN BANK R 01/31/79 

TOTAL 

** DOCUMENT 1816 112 STANDARD OFFICE M ** 
6111 SUPPLIES E 61/31/79 

1002 CASH IN BRNK R 01/31/79 

TOTAL 



** DOCUMENT 1017 113 PERCY'S TOURS 
6112 TRAVEL E 

1602 CASH IN BANK R 



M ** 
01/31/79 
61/31/79 
TOTAL 



** DOCUMENT 1018 114 CAPITAL EQUIP CO M ** 
1006 FIXED RSSETS A 01/31/79 
1002 CASH IN BANK A 01/31/79 

TOTAL 



** DOCUMENT 1019 PAYROLL REGISTER 



M ** 



5102 


CLERICAL SALARIES 


E 


01/31/79 


2004 


RCCRUED PRYROLL 


L 


01/31/79 


5103 


ADMIN SALARIES 


E 


61/31/79 


2004 


ACCRUED PRYROLL 


L 


01/31/79 
TOTRL 



500 


08 





80 


987 


78 


987 


78 





80 


1, 234. 


45 


1, 234. 


45- 


0. 


00 


134. 


34 


134. 


34- 


0. 


00 


1, 234. 


34 


1, 234. 


34- 


8. 


00 


34S. 


98 


348. 


98- 


0. 


80 


3. 


22 


3. 


22- 


0. 


00 


45. 


08 


45. 


00- 


0. 


08 


1> 000. 


08 


1. 000. 


00- 


0. 


08 


432. 


56 


432. 56- 


876, 


67 


876, 


67- 


0.00 
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** DOCUMENT 1021 JAN P/R TAX 



M ** 



DOCUMENT NO. SEQUENCE 



XVZ COMPANY 

MONTHLY TRANSACTIONS REPORT 

DATE: 81/31/79 



PAGE 3 



ACCT 



DESCRIPTION 



RMOUNT 



6106 TAXES 

20O5 ACCRUED TAXES 



E 

L 



61/31/79 

01/31/79 
TOTAL 



166. 43 
166. 43- 

0. 00 



** DOCUMENT 1022 PRICE & WATERS 
6108 ACCOUNTING E 

2081 ACCOUNTS PAYABLE L 



M ** 
01/31/79 

01/31/79 
TOTAL 



800 00 

800. 00- 

0. 00 



** DOCUMENT 1023 DUDLEY LEGALMAN 
6109 LEGAL FEES E 

2001 ACCOUNTS PAYABLE L 



M +* 
01/31/79 
01/31/79 
TOTAL 



457. 89 
457. 89- 
0. 00 



** DOCUMENT 1024 DEPR SHEDULE 
6107 DEPRECIATION E 

1007 DEPR ALLOWANCE A 



M ** 
01/31/79 
01/31/73 
TOTAL 



250 60 
250. OO- 
0. 00 



** DOCUMENT 1025 1ST NATL BANK 
6110 INTEREST E 

2003 NOTES PAYABLE L 



M ** 

01/31/79 
01/31/79 
TOTAL 



56. 00 
56. 00- 
0. 00 



** DOCUMENT 1026 ACCT REC JOURNAL 

1002 CASH IN BANK A 

1003 ACCOUNTS RECEIVABLE A 



M ** 
01/31/79 
01/31/79 
TOTAL 



5, 000. 00 

5, 000. 80- 
0. 00 



** DOCUMENT 1827 PURCHASE JOURNAL 
1005 MDSE INVENTORY A 
2081 ACCOUNTS PAYABLE L 



M ** 
01/31/79 
01/31/79 
TOTAL 



8.. 800. 00 

8, 000. 08- 
0. 00 



TOTAL 0. 00 
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Appendix 15 


XYZ COMPANY 








PAGE 1 






GENERAL LEDGER 


TRIAL BALANCE 












DATE: 


01/31/73 










flCCT 




ACCT 


raj __- 


.__— — _-_— —TE'QKK 


FACTION ACTIVJ 


fTU ,-_„_____ 


L-n 1 . 


___________ | fr-J-Jf,); 




NO. 


DESCRIPTION 


TYPE 


CODE PREVIOUS MO. 


CURRENT MO. 


YEAR TO DATE 


1001 


CASH ON HAND 


A 


- 


6. 06 




567. 69 


1, 234. 18 


1002 


CASH IN BANK 


A 


- 


0. 00 


4, 


248. 08 


9. 496. 16 


1003 


ACCOUNTS RECEIVABLE A 


- 


0. 00 


18, 


498. 68 


25, 396. 16 


1804 


BAD DEBT ALLOWANCE 


A 


- 


0. 00 




6. 08 


588. 86- 


1865 


MDSE INVENTORY 


A 


- 


0. 06 


&J 


853. 46- 


19, 293. 26 


1006 


FIXED ASSETS 


A 


- 


0. 80 


Xi 


666. 86 


12, 008. 00 


1007 


DEPR ALLOWANCE 


A 


- 


0. 60 




256. 86- 


3, 500. 80- 


2001 


ACCOUNTS PAYABLE 


L 


- 


0. 60 


9, 


257. es- 


26, 515. 78- 


2802 


TAXES NITHHELD 


L 


- 


0. @0 




8. 68 


1, 008. 06- 


2803 


NOTES PAYABLE 


L 


- 


6. 06 




56. 06- 


6, 112. 08- 


2604 


ACCRUED PAYROLL 


L 


- 


0. 06 


1. 


369. 23- 


3, 118. 46- 


2905 


ACCRUED TAMES 


L 


- 


0. 66 




166. 43- 


932. 86- 


2501 


COMMON STOCK 


C 


- 


6. 06 




0. 80 


5, 800. 00- 


2502 


PREFERED STOCK 


C 


- 


8. 06 




8. 88 


3, 000. 06- 


2503 


TREASURY STOCK 


c 


- 


0. 08 




8. 06 


2, 008. 00 


2999 


RETAINED EARNINGS 


C 


- 


0. 00 




0. 86 


17, 928. 36- 


3001 


CASH SALES 


I 


1 


0. 00 


4 


567. 09- 


4, 567. 69- 


3082 


30 DAY CHG SALES 


I 


1 


0. 00 


15. 


498 08- 


15, 498. 88- 


3003 


CREDIT CARD SALES 


I 


1 


6. 08 


1. 


345. 54- 


1, 345. 54- 


3101 


COST OF SALES/CASH 


E 


2 


6. 06 


2, 


106. IS 


2, 106. 18 


3102 


COST OF SALES/CHG 


E 


2 


0. 80 


8. 


162. 86 


8, 162. 86 


3103 


COST OF SALES/CR CD E 


2 


6, 60 




645. 16 


645. 16 


4101 


ADVERTISING 


E 


3 


0.86 




82.45 


82.45 


4102 


COMMISSIONS 


E 


3 


0. 00 




345. 23 


345. 23 


4183 


PROMOTION 


E 


J 


0. 00 




45.67 


45.67 


4104 


PUBLICITY 


E 


3 


0. 80 




160. 80 


180. 60 


5101 


SALESMEN'S SALARIES E 


3 


0. 00 




506. 08 


508. 68 


5162 


CLERICAL SALARIES 


E 


4 


6. 06 




432. 56 


432. 56 


5163 


ADMIN SALARIES 


E 


4 


0. 68 




876. 67 


876. 67 


5104 


MANAGEMENT SALARIES E 


4 


8. 68 




987. 78 


987. 78 


6161 


COMPUTER FEES 


E 


4 


6. 08 


1. 


234. 45 


1, 234. 45 


6102 


DUES & SUBSCRIPTIONS E 


4 


6. 60 




36.00 


36.06 


6103 


AUTO EXPENSES 


E 


4 


6. 66 




134. 34 


134. 34 


6164 


RENT EXPENSE 


E 


4 


8. 68 


1 


234. 34 


1, 234. 34 


6105 


UTILITIES 


E 


4 


0. 68 




348. 38 


348. 98 


6106 


TAXES 


E 


4 


0. 60 




166. 43 


166. 43 


6167 


DEPRECIATION 


E 


4 


0. 68 




258. 80 


258. 66 


6108 


ACCOUNTING 


E 


4 


8. 66 




806. 88 


886. 66 


6109 


LEGAL FEES 


E 


4 


8. 60 




457. 89 


457. 89 


6110 


INTEREST 


E 


4 


6. 86 




56. 08 


56. 08 


6111 


SUPPLIES 


E 


4 


0. 06 




3. 22 


3.22 


6112 


TRAVEL 


E 


4 


6. 66 




45.00 


45.06 






BALANCE = 


8. 66 




8. 66 


8. 08 
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Appendix 16 KV2 comprnv 

INCOME STATEMENT DATE: 01/31/79 

PERIOD ENDING: 61/31/79 

RCCT DESCRIPTION CURRENT '/. YEAR-TO-DRTE V. 

++++++++++++++++++++++++++ 

** GROSS SRLES ** 

++++++++++++++++++++++++++ 
3001 CASH SALES 4.. 567. 09- 21. 3 

3602 30 DAY CHG SALES 15. 498. 08- 72. 4 

3903 CREDIT CARD SALES 1,345. 54- 6. 3 

** TOTRL GROSS SALES 21, 410. 71- 180. 8 

++++++++++++++++++++++++++ 
** COST OF GOODS SOLD ** 
++++++++++++++++++++++++++ 
3181 COST OF SRLES/CASH 2, 106. 18 9. 8 

3102 COST OF SALES/CHG 8, 182. 66 37. 8 

3103 COST OF SRLES/CR CD 645. 16 2. 8 

** TOTAL COST OF GOODS SOLD 18, 853. 40 50. 7 



GROSS PROFIT 10, 557. 31- 49, 3 



++++++++++++++++++++++++++ 
** SELLING EXPENSES ** 

++++++++++++++++++++++4+++ 

4101 ADVERTISING 

4102 COMMISSIONS 

4183 PROMOTION 

4184 PUBLICITY 

5181 SALESMEN'S SALARIES 

** TOTAL SELLING EXPENSES 

++++++++++++++++++++++++++ 
** GENERAL OVERHEAD ** 
++++++++++++++++++++++++++ 

5182 CLERICAL SALARIES 

5183 RDMIN SALARIES 
5104 MRNRGEMENT SALARIES 

6181 COMPUTER FEES 

6182 DUES & SUBSCRIPTIONS 

6103 AUTO EXPENSES 

6104 RENT EXPENSE 

6105 UTILITIES 

6106 TAXES 

6107 DEPRECIATION 

6108 ACCOUNTING 

6109 LEGAL FEES 
6116 INTEREST 
6111 SUPPLIES 



432. 56 


2.8 


876. 67 


4.1 


987. 78 


4.6 


1, 234. 45 


5.8 


36. 08 


0.2 


134. 34 


8. 6 


1, 234. 34 


5.8 


348. 98 


1.6 


166. 43 


0.8 


250. 00 


1. 2 


800. 00 


3.7 


457. 89 


2. 1 


56.80 


3 


3.22 


8.0 



4, 567. 89- 


21.3 


15, 498. 88- 


72. 4 


1, 345. 54- 


6.3 


21, 410 71- 


108. 8 



2, 106. 18 


9.8 


8, 102. 06 


37.8 


645. 16 


3. 8 


18, 853. 40 


50.7 


10, 557. 31- 


49.3 



82. 45 


6. 4 


82.45 


8.4 


345. 23 


1.6 


Jtv* iZL.*v' 


1. 6 


45.67 


0.2 


45.67 


2 


100. 80 


0. 5 


108, 88 


8. 5 


580. 80 


2.3 


508. 00 


2.3 


1, 873. 35 


5.0 


1, 073. 35 


5.8 



432. 56 


2.0 


876. 67 


4.1 


987. 78 


4.6 


1, 234. 45 


5, 8 


36. 88 


8. 2 


134. 34 


0.6 


1, 234. 34 


5. 8 


348. 98 


1.6 


166. 43 


8. 8 


250 00 


1 2 


888. 08 


3. ? 


457. 89 


2.1 


56. 88 


3 


3. 22 


0.8 
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XVZ COMPANV 

INCOME STATEMENT DATE: 81/31/79 

PERIOD ENDING: 01/31/73 

RCCT DESCRIPTION CURRENT X VEAR-TO-DATE Y, 



6112 TRAVEL 45. OS 8. 2 45. SO S. 2 

** TOTRL GENERAL OVERHEAD 7, 063. 66 33. 8 7, 063. 66 33. 6 



TOTAL INCOME 21, 410. 71- 180. 8 21, 41ft 71- 108. 8 
TOTAL EXPENSE 18, 99ft 41 88. 7 18, 998. 41 88. 7 

NET PROFIT (NEGATIVE NO. = LOSS) 2,428.30 11.3 2,428.36 11.3 
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Appendix 17 



XY2 COMPANY 
BALANCE SHEET 
DATE: 01/31/73 



PAGE 1 



ACCT DESCRIPTION 



AMOUNT 







++++++ 






ASSETS 






++++++ 


1801 


CASH ON HAND 




1082 


CASH IN BANK 




1083 


ACCOUNTS RECEIVABLE 




1004 


BAD DEBT ALLOWANCE 




1065 


MDSE INVENTORY 




1086 


FIXED ASSETS 




1007 


DEPR ALLOWANCE 




TOTAL 


ASSETS 





1.. 234. IS 

3, 436. 16 

25, $$6. 16 

500. 09- 

19, 293. 20 

12, 080. 80 

3, 580. 80- 

64, 813. 78 



2801 ACCOUNTS PAYABLE 

2002 TAXES WITHHELD 

2803 NOTES PAYABLE 

2804 ACCRUED PAYROLL 
2005 ACCRUED TAXES 



+++++++++++ 
LIABILITIES 
+++++++++++ 



26, 515. 73- 

1, 880. 08- 

6, 112. 80- 

3, US. 46- 

332. 36- 



TOTAL LIABILITIES 



37,. 673. 10- 



2501 


COMMON STOCK 


2582 


PREFERED STOCK 


2503 


TREASURY STOCK 


2333 


YEAR-TO-DATE P * L 


2933 


RETAINED EARNINGS 


TOTAL 


CAPITAL 



5, 008. 88- 
3, 808. 80- 
2, 888. 08 
2, 428. 30- 
17j 928. 30- 

26, 340. 68- 



TOTAL LIABILITIES & CAPITAL 



64, 813. 78- 
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Appendix 18 


XYZ COMPANY 








PAGE 1 






GENERAL LEDGER 


TRIAL BALANCE 










DATE: 


01/31/?9 










RCCi 
NO. 




ACCT 
TVPE 


rftT ___ 










DESCRIPTION 


CODE PREVIOUS MO. CURRENT MO. YEAR TO DATE 


1091 


CRSH ON HAND 


fi 


- 




56? 09 


0. 0O 


1, 234. 18 


1062 


CRSH IN BANK 


R 


- 


4. 


248. OS 


0. 00 


9, 496. 16 


1003 


ACCOUNTS RECEIVABLE 


: R 


- 


IS, 


498. 08 


0. 00 


25, 996. 16 


1004 


BAD DEBT ALLOWANCE 


A 


- 




0. 00 


0. 00 


500. 00- 


1005 


MDSE INVENTORY 


R 


- 


2, 


853. 40- 


0. 00 


19, 293. 20 


1006 


FIXED ASSETS 


fi 


- 


1: 


000. 00 


0. 60 


12, 000. 08 


100? 


DEPR RLLOWANCE 


A 


- 




250. 00- 


0. 00 


3, 500. 08- 


2001 


ACCOUNTS PAYABLE 


L 


- 


9, 


25?. 33- 


0. 08 


26, 515. 78- 


2002 


TAXES WITHHELD 


L 


- 




0. 00 


0. 06 


1, 000. 00- 


2063 


NOTES PRVABLE 


L 


- 




56. 00- 


0. 00 


6, 112. 00- 


2004 


ACCRUED PAVROLL 


L 


- 


1: 


309. 23- 


8. 00 


3, 113. 46- 


2005 


ACCRUED TRXES 


L 


- 




166. 43- 


0. 80 


J7wii + 86"" 


2501 


COMMON STOCK 


C 


- 




0. 00 


0. 00 


5, 680. 00- 


2502 


PREFERED STOCK 


C 


_ 




0. 00 


0. 00 


3, 000. 00- 


2583 


TREASURY STOCK 


c 


- 




0.00 


0. 00 


Z, 000. 08 


2999 


RETAINED EARNINGS 


c 


- 




0, 08 


0. 00 


1?, 320. 30- 


2001 


CASH SALES 


I 


1 


4, 


567. 03- 


8. 06 


4, 567. 89- 


3002 


30 DAY CHG SALES 


I 


1 


15, 


498. 08- 


0. 00 


15, 498. 08- 


3003 


CREDIT CARD SALES 


I 


1 


1, 


345. 54- 


0. 00 


1, 345. 54- 


3101 


COST OF SALES/CASH 


E 


2 


2, 166. IB 


0. 00 


2, 106. 13 


3162 


COST OF SALES/CHG 


E 




3, 


102. 06 


0. 00 


8, 102. 06 


3103 


COST OF SALE5/CR CD E 


2 




645. 16 


0. 08 


645. 16 


4161 


ADVERTISING 


E 


3 




82. 45 


0. 00 


32.45 


4182 


COMMISSIONS 


E 


3 




345. 23 


0.00 


345. 23 


4103 


PROMOTION 


E 


3 




45. 6? 


0. 00 


45. 6? 


4104 


PUBLICITY 


E 


3 




100. 00 


0. 00 


180. 00 


5101 


SALESMEN'S SALARIES E 


3 




500. 00 


0. 00 


580. 00 


5102 


CLERICAL SALARIES 


E 


4 




432. 56 


0. 08 


432. 56 


5103 


ADMIN SALARIES 


E 


4 




8?6. 67 


0. 00 


876. 6? 


5104 


MANAGEMENT SALARIES E 


4 




387. ?8 


0. 00 


937. 73 


6161 


COMPUTER FEES 


E 


4 


1 


234. 45 


0. 00 


1, 234. 45 


6102 


DUES & SUBSCRIPTIONS E 


4 




36.00 


8. 08 


36.00 


6103 


AUTO EXPENSES 


E 


4 




134. 34 


8. 08 


134. 34 


6104 


RENT EXPENSE 


E 


4 


1, 


234. 34 


0. 00 


1, 234. 34 


6105 


UTILITIES 


E 


4 




348. 98 


0. 00 


348. 98 


6106 


TAXES 


E 


4 




166. 43 


0. 00 


166. 43 


610? 


DEPRECIATION 


E 


4 




250.08 


0. 80 


250.08 


6108 


ACCOUNTING 


E 


4 




300. 00 


0. 00 


808. 00 


6103 


LEGAL FEES 


E 


4 




457. 39 


0. 00 


457. 89 


6110 


INTEREST 


E 


4 




56. 00 


8. 00 


56.80 


6111 


SUPPLIES 


E 


4 




3. 22 


0. 00 


3.22 


6112 


TRAVEL 


E 


4 




45.08 


0. 00 


45.00 




BALANCE = 




0.00 


8. 00 


8. 80 
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Appendix 19 — Taking Care of Your Diskettes 



1. Since all of your information is going to be stored on these diskettes, you'll 
need some more diskettes to make extra "safety copies", just in case. You can 
start with a box of ten, and rotate them to insure you always have a reserve 
copy of your files. 

2. Keep the diskette in its envelope if you're not using it. 

3. Handle diskettes carefully, just as you would a high fidelity record. DO NOT 
TOUCH any of the exposed surfaces. Hold them by the protective cover only. 

4. Keep them away from cigarette ashes, dust, motors, heat, direct sunlight, 
and power transformers, and anything magnetic. 

5. If you write on the label, use a soft, felt-tip pen, and DON'T press hard. 

6. Store them vertically in a file folder or on a shelf, as you would a phonograph 
record collection. Don't stack them, bend them, or scratch them. 
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Appendix 20 —Rotating Your Copies 



When you're using your system, get in the habit of making copies of both diskettes 
at the end of the day. The next day, use the copies that you just made. It's a very 
inexpensive form of insurance. You might consider even carrying the backup copies 
home at night in case of fire, theft, or vandalism. You must also save the diskettes 
that contain the last completed month. 

Here's an example, using 2 extra diskettes: 

The first day's diskettes we will call A and B. The next day's diskettes will be 

called C and D, 



OayC 

Prog. 


)ne 

Copy Onto 


Day Two 

Prog. 


Copy Onto 


® 




© 




© 


















Data 


c 


opy Or 


lto 


Data 




C 


opy Onto 






□ 

© 




© 












.... .^. 





On the second day, you will take A, and B, and use them as blank diskettes to 
copy C and D. If something happens to a diskette, you still have the last backup 
copy to rely on. Pour extra diskettes will give you three days of record 
protection. 

Be sure to keep the last completed month's set of diskettes till you complete the 
current month. This is very important in case of a major problem. 

Note: The most effective method for erasing diskettes is by using a Radio Shack 
Bulk Tape Eraser, Stock No, 44-21(3. 
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Appendix 21 — How To Back Up Your Diskettes 



Use this procedure EXACTLY: 

1 — Turn on everything except the TRS-80 keyboard. If this is the first time you've 

you've ever used the Radio Shack Disk System, refer to the Disk Operating 
System Manual for detailed instructions. 

2 — Insert a new, blank diskette in Drive #1 {farthest from the Interface) with the 

diskette notch up, label to the right. 

3 — Close the Drive #1 Door. 

4 — Insert the diskette you wish to copy in Drive #0 with the notch up, label 

facing right, and close the door. (Drive #0 is the first drive connected to the 
interface.) 

5 — Turn on the TRS-80 Keyboard. (The switch on the right rear apron.) 
This is what the screen shows: This is what you type: 

DOS READY "tB Bl El IB E3 EI , and press [ENJERJ 

SOURCE DRIVE NUMBER? Tffl. and press IENTERI 

DESTINATION DRIVE NUMBER? [S , and press |ENTER1 

BACKUP DATE (MM/DD/YY)? IfflEiB El S GB iMMM 

{Example for January 1, 1979 
HIT 'ENTER' TO CONTINUE STOP - Don't press anything!!! 

Now we can check to see if the "BACKUP" procedure was successful: 

1 — Remove the original diskette from Drive #0. 

2 - Take the backup diskette out of Drive #1 . Place the backup copy in Drive 

#0 and close the door. 

3 — Now you can press lENTERl . If the screen shows: DOS READY, your 

backup was successful. 

If something went wrong, go back to step 1. 
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Appendix 22 — How To Format Your Data Diskettes 



This process prepares blank diskettes for use on the disk system. All data diskettes 
must be formatted before being used. Here's how you do it: 

1 — Insert a blank diskette in Drive #1 



2 — Do the following exactly as shown: 

Screen Shows: 

DOS READY 

WHICH DRIVE etc. 
DISKETTE NAME? 
CREATION DATE? 
MASTER PASSWORD 
LOCK OUT ANY TRACKS? 
HIT "ENTER" TO CONTINUE 



You Type: 

E (Ql H M O (2 press |ENT£R| 

Q] press lENTER] 

gUDCESIiail] press jENTERj 

HUB El m 03 W [2 S) press 1ENTERI 

EHSlil@ll press IENTER1 

(Nj IS press I ENTER| 

press IENTER1 
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Appendix 23- Program Listings 



GL - GENERAL LEDGER i. 1 FEB 1373 PRGE 



i ' "GL" — GENERAL LEDGER 1. 1 FEBOARY 1973 

2 ■' ** COPYRIGHT <C> 1373 TANDY CORP. , ALL RIGHTS RESERVED ** 

19 CLEAR: CLOSE: CLEAR 8S00:DEFINT I-N:ONERRORGGTG3e00:OPEN"R", i, "CTRL" 

20 FIELD1..4AS D8£, 30AS C2*:GET1, i:DT$=STR*>;CVS(DB$>> : IFLEFTf CDT$, 1> = " "THENDT*=ft 

IuHT*(DT$,LEN'::DT$>"1) 
35 DT*=RIQHT*( "00080"+DT$, £) : DIMIHfc W$, 11 HIJi 

40 DT£=LEFT*<Om 2> + V"+-MID$ i IDT$, 3, 2>+V"+RIGHT$CDT*, 2> :G0TG2SS 
109 I Nt=" " : m= I NKEVJ : W=14 : WD=6 : WS=WD : WLK=WD : IFFL=UDTHENFL=1 
105 PRINT5TRING* (ABSCFL).. 136 >; STRING$<RBS<FL>, 24 >, 
IIS PRINTCHR*>-;W); :FORMK=1T025: W*=INKEV*: IFN$0""THEN115ELSENEXT:PRINTCHR*a5>; ;F 

0RWJi=lT025 . Ut--INKEV* . IF^O""THENil5ELSENEXT : GGTOliO 
115 PRINTCHR*<W^ : IFABSeFL^kiL^THEN^SELSEIFFL^ANDW^" ii ANDW$<= ,l Z"THEN170ELSEI 

FFL<8fiNDW*> VflNDWK" : "THEN170 
117 IFW*= n ,"THENPRINTW*; : WUi=WLK+l : G0T0175 
126 IFW$=". "flHDWD=0THENWI>=l:GOTO17e 
123 I F< m= " - " ORW*="+ " ) flNWJS=0RNDWLK=0THENI4S=l : G0T017S 
125 IFW*<>CHR*(8>THEN15eELSEIFML«=0THEItL10ELSEPRIHTCHR*<24); : IFFL>3THEN135ELSEIF 

PEEK (16413 ) =44THEN148 
120 IFPEEK<16418)=46THEHWD=8 : (MTOi^ELSEIFPEEK (16418) =42QRPEEK<I 16418 >=45THENWS=8 
135 IN*=LEFT*<:iN*,LEK<:iN*>-l) 
140 WLK=HL/!-l : P0KE16418., 136 : GGTOliO 

150 IFItt=€HR*<24)THEW > RINTSTRIira$(UL& CHRS<24>>.; :GOT0180 
155 IFWtOCHR*a3>THEHil8ELSEPRINTSTRING*<fiBS<FL:)~ULK, 32); 
160 PRINTCHR*<15); : MX=25 : NEXT : RETURN 
176 PRINTWt, :INt=IN*+Mt:WLK=WU+l 
175 IFftBS<FL>=lTHEN160ELSElie 
200 CLS:PRINT@16,C2$:PRINTiJS0, "GENERAL LEDGER 1.1 MASTER MENU" :PRINT0144, "DATE: 

"} DT* 

265 print?256,.tab<3)"<:s> e t t d r v s date 
"tab(3>"0;:> a t e g r v maintenance 
"tab(9>"<.;a> ccount m a i n t e n a n c e 

"ThB(9>"<P> S T TRANSACTI N S 
206 PRINTTAB(3)"<:T> RANSACTICN REPORTS 

"TAB(y) Fi <I> N C H E STATEMENT 

"TfiB(9)"<B> ALANCE SHEET 

M TAB<3>"<£> X I T GENERAL LEDGER 
215 PRINT£768, CHR^Sl); CHR$<26>; TfiB(9)"> ENTER SELECTION: ".; 
£20 FL=l:GOSUB100:IFIN*=' i "THEN215ELSEON l+IHSTR<"CflPTIBSE", IN*)GUTO230; 318, 320, 3 

30.- 348.. 350.. 360.. 10O0,. 250 
230 PRINTCHR$(3); :GOTG220 

250 CLOSE :PRIN7(?256.-CHR£OiJ;CHR*<26>"** ALL DONE *■*■»: CKR*(2S"> 
260 ONERRORGCTO0:CLEflR5e:CMD n S nj ' GOTO DOS 
31S CL0SE:RUN"CATMAINT" 

329 CLOSE :RUN"SLftflirjT" 

330 CL0SE:RL1N"GLT^PUST !, 
340 CLOSE: RUN "TXREPORT" 
350 CLOSE iRUITINCOME" 
360 CL0SE:RUH"GLBFil5MT" 

1068 PRINT£832,0HES(3i>;TfiB(9)"> TODAY'S DATE (MfVPP/VY): "; :FL=8:G0SUB18S 

1005 IFIN*=" ,, THENV*=DT*:PRINTSTRING*<8 J 8J;V*j :ELSEV*=IN* 

1.010 IFLEN(V£)OS GOTO iOSO 

1020 ONERRORGOTO99i0:MM=VfiL(LEFT$(Y$, 2)) :^;!>VAL(i1ID£ (¥$, 4, 2>) :HV=VAL(RIGH7$<V$.- 2 



GL - GENERhL LEDGER 1 1 FEB 1ST* PhGE 



1636 IFMH<iORHM>i20RMD<10Rr')D:;j:iCiRHV<10Ri , iID*', , -, i i.. 3, i>MI0$CVJ, 6; i)<>V/ ,: 6.OT0 1666 

1043 ON MM GOTO 1666.. 1266.. 1666,- 1358; 1666,. 1386; 1066. 1666,. 1338.; 1866: 12:66.. 1666 

1656 GOTO 1666 

1666 N031 

1676 IFHD>N[)G6Tni666 

1666 MN£=STRiKN!*;> -.m^STRUW) :MV*=STR$(MV) : IFLEN'-'flMi-^irH'^RIGHTf-aiNt, 2') 

1696 IFLErKHDS^^STHENMD^RIGHTJCHDf, 2> 

16^5 IFLEN<MV$)=2THENMV$=RIaHT*<:MV$, 10 

1116 IFLEFTJOIDS, i) = " i, THEr-JMIDt:::HD^i. : i) = ,, tr ; 

1115 IFLEFT*CMM*,i> N "TK>.'nlDf CMM*- 1, 1>="6 U 

1126 IFLE:FT$=:Nvs, 1.}-" "MID^MV*, !■ 1'y-"®" 

1133 r-iT^-t-: ■■;.:;- "/" i"Di+'V J, '+MVi : :LSETD8$-MKSti , yHL.. ; .i > !ni : ^HDJ : 'iHy$) ) :PUT 1,. 1 

1156 PRl'V^l'-v/ 2HR$',"26 ':■• Fi DH~F£ : ";DT$j : 0610215 

1266 RV=MV/4:ND=2S:IFRv-INT<RV:3=6THENN!)=2?-Q0T01S76aSJAv6 

1366 N3^25;3CT6l5~ , S 

3086 RESUME 

9516 RESUME 166 : 3 



GLINIT - GENERAL LEDGER 1 1 FEB 1379 



i "" "GLINIT" — GENERAL LEDGER i. 1 FEBUHRV 1973 

2 " ** CGPVRIGHT <C) 1379 TANDY CORP. , ALL RIGHTS RESERVED ** 

2 CLOSE : CLEHR8888 : DEFINTT-N: DIMIN* , kit, U.. WLK 

5 DEF FNDRt!;R*V=RIOHT*>:fi?,LEN(fl*)-i) 

6 DEFFNXD*Cfl$)=L£FT*Cfi*> 2>+MD*(fl*, 4, 2>*RIGHT*<fi*, 2> 

10 GOSUB1500:PRINT:PRINT"> SETUP NEW GENERAL LEDGER DISKS (V/N>? "; 

26 FL=i:GOSUEI43S:FRINT:IFIN*=' , V"THEN40 

3S CLOSE:RUN"GL" 

46 PR I NT ; PR 1 NT " LOAD BLANK. FORMATTED DISK I NTO DR I VE i. " : PR I NT 

50 PRINT "> DEPRESS 'ENTER'' WHEN RERDV <TVPE "(?-" TO EXIT)? "; 

60 FL=1 : GOSUB180 : IF I N*= " " 7NENS8ELSE38 

80 GO5UB6000:OFEN ,, R", 1.- "GLI1flSTER:l h :QuT018y 

30 FORXX=1TO2S00 : NEXT : RETURN 

108 I N$= " " ; H*=I MKEVt : U=14 : HD=8 : HS=UD : WLK=HD : IFFL=WDTH£NFL=1 

185 PRINTSTRING*<RBStFL), 136), STRING? (fiSS<FL>, 24;, 

110 PRINTCHR*<W).i :F0RWK=iT025:N$=INKEY$: IF^$0 !,S! THhNil5ELSEN£XT.FRINTL:HR$f 15J.. :F 

ORWK=1TO25:W*=INKEV¥:IFW*<>""THEN115ELSENEXT:QOTO110 
115 PRINTCHR*<tO; : IFfiB£':FL>=WLKTHEM12SELSEIFFL^0»JDH*>=" "RNDNK="Z I 'THEN178£LSEI 

FFL<0flNDW*>"/"flNDU*<" : "THEN178 
117 IFWS=", "THENPRINTWfc : MLK=WLK+i ■ GCT0175 
128 IFW$=". "RNDWD=0THENND=1:GOTO17@ 
123 IF<W$= ,, - u ORW*="+ u >flNOWS=eftNDWLK=0THENHS=i:GOTOl?0 
125 iFUSOCHR* 03 >THEN15yELSE IFi4L'i=8THENllSELSEPRINTCHR*< 24.:- ; : I FFL>0THENi35ELSE IF 

PEEK a64i8} =44THEN148 
130 I FPEEK ( 16418 ) =46THEr -LD=y : GGT01S5ELSE I FPEEK ■:. 1S41S >=430RFEEK< 16418 ) =45THENHS=8 
135 IN*=LEFT*<IN*,LENaN*>-l> 
140 ML":=!-'0-I : P0KE1S41S, 136 : GGTOiia 

150 IFW*=CHR$(24)THENPRINTSTRINGf<NL^CHR*(24>>; 'GOTO108 
155 IFM*OCHRta3nHENil9£LSEPRlHTSTRINGt<flBS<FL)-WLK, 32); 
160 PRINTCHR*<15)i : UX=2S : NEKT : RETURN 
170 PPIN7W& :IN$=rN-t+W*:tO=WL>-+l 
175 IFRBS<FL>=iTHEN150ELSEli0 

189 fl*=STRING$<255,CBR$<0>> 

190 FIELD!, 255RS B* : LSETE* =R* :P\JT1, 1:PUT1, 25 
195 GO5UB6820 

205 G0SUB5888 : GOSUB6Q08 

210 CLOSE 1:0FEN"R",1, "CTRL" 

220 HELD1, 4RS D8*, 30flS C2*, 2fiS NM*, 2flS NCf, 6.RS NV$, 4flS DS*, 2flS «F*, 99AS D*, SR5 

FD&2RS LD*, 2R3 KS*, 2R5 MP*, 2flS MR*, 2RS NS*:GET1, 1 

221 GOSUB6O20 

222 GOSUB4000:GOSUS2000 

225 FL=30 : Q=l : GDSUB3e08: LSETC2*=QQ*<Q? 

230 FL=8:G=2:GOSUB3880:V2*=LEFT$;QQ*^Q>, 2>:LSETD&*=r!KS*<VRL(FNKD^<QS*(Q:.')>) 

253 FL=8:Q=3:GOSUE3000:Vl$=LLFT*^CQ*<:Q>/2):LSET£>S*=MKS*(VflL<FNXD*caQ*tQ))>) 

260 MF=VRL ( Vi*> -VflL < V2t ) 

262 IFNF>=0GOTO270 

264 l*F=MF+12:G0TQ262 

276 LSETMF*=MKI*<MFJ 

280 LSETFD*="DETflIL:l" 

318 FL=--4:Q=4:GOSUB3000:LSETNP$=f'1KI$Cv'RL<QQ$(Q>;') 

320 FL=-4:Q=5:GOSUB3a00:LSETNR*=MKI*<VflL(QQ*<Q)>>:IFNR*<>NP$THEN335 

338 PRINTi?76S,CHR$ai>:PRINT§S32, "** RETAINED EARNINGS AND VEflR-TG-DRTE P&L MUST 
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BE DIFFERENT *+" ;GOSUB90:GOTQ310 
335 PRINT@?68,CHR*<;31>:PRINT@832, "> ARE RLL ENTRIES CORRECT (V/FO? "; :FL=1:G0SUB 

I486 
346 IFIN*-"N"60T0225 

355 QOSUB60ea:V*=I)*:MIDt<V*,LEH<V*)-2,2)=MKIt<:0):riIDt<V$ J 98,8)=MKO*<0):MIDt<Vt,8 
6, 4)=MKS*';6> : MID$<¥*, 84; 2>=MKUC@> : HIDSCVf, S8> 4>=riKS*<:8> :NIDf W*, 78, £)=MKI* 
<6J : LSET £»*=V* : LSET LD*=MKI*<1000) : PUT 1, 1 

368 FIELD!, lfiSYfc 20RS A9£, 107AEY*, 28AS B9$:BL$=" ** UNDEFINED **" 
363 LSETA9$= "GROSS SRLES" :LSETB9*="CuST OF GOODS SOLD" 'PUT1, 2 

369 F0RI=3T04 : LSETf)9$=BL* : LSETB9*=BL$ : PUT!, I : NEXT 

419 0PEN"R"..2, "GLMRSTER:1":FIELD2„255F!S R*:LSETfl*=5TRING*(255, 0) 

420 PUT2, 1:PUT2, 25 : CLOSE 

436 PRINTe768,CHR*ai;:PRINT(?832, "GL SETUP COMPLETE i :: OR "QQ$<iV GOSUBS620:GQTG38 

1000 IFIMt=""THENIN*=QQ$<Qi : RETURN 

1016 IFLBKIN*)08THENER=1: RETURN 

1026 MM= VftL < LEFT* a N$ , 2 ) ) : MD= V RL < M I D* < I N* , 4, 2 > > PI V= VflL < R I GHTt < I N$, 2 > > 

1036 IFMM<lORNn>i2ORNDa0RND>3iaRHV<lORt1ID*(IN* J 3, i>+NID$a?i$, 6, i>O ll ,-V"THENER=l 

: RETURN 
1040 ON ftH GOTO 1060, 12C8, 1060, 1300, 1660. 1308, 1868, i860, 1380, 1860, 1388, I860 
1850 GOTO 1088 
I860 ND=3i 

1878 IFHD>NDTHENER=i : RETURN 

16S0 MMi=5T Ri ■: MM ) : MD£=STR£ ( MO > ■ MV*=STR* ( tfV > : MH*=R I GH T £ (. NMf ., 2 > 
1098 MD$=RIGHT^HD£, 2> : MV*=RIGHT$«:MV*, 2) 
1118 IFLEFT*<,MD*,i>= H "THENMID*<MD*, 1, 1) = "0" 
1115 IFLEFT$<iiM*, i)=" "THENMIDi^HN*, 1, i) = "8 it 
1128 IFLEFT*<IW*,1>=" "PlIDtCPIVt, 1, 1)="0" 
1138 I H*=MM*+ " / " +ND*+ " / "-HIV* : RETURN 

1288 RV=MV/4 : ND=2S : IFRY-INTCRV>=0THENJJD=29 :GOTul878ELSEi070 
1306 ND~30:6GTGi@7Q 

1480 GGSUB186: IFIN5="V ii 0RIN*="N"R£TURN 
1410 PRINTCHR*<8>, ;GC'T01488 

1588 CLS'PRINTTfiBClSJ"** INITIAL SETUP OF COhPnMV 1-nTh **" RETURN 
2088 QQ$a)=C2$:C5Q$<2)=D3$:QQf;3; ; =DS3 : :-eQ*<4>=STRf<CVI<NP$>) :GQ$<5)=STR$a:VKNR¥J 

2010 DX $=SQ$ (2) : G0SUB2588 : SO* < 2> =DX$ : DX*=OQ* G > : GGSUB2588 : QQ* (3 ) =DX* 

2828 0Q*(4>=FNDRf(QQ$^>;':QQJ(5)=FNDR$(SQ$=:5)> 

2836 FOR I =1T05 : PR 1 HTWVi I X. QQ$ ( I ) : NEXT : RETURN 

2580 DX*=RIGHT*(STR*<CVS<DX*> ), 6> : IFLEFTiCDXt, 1>=" "THENDX*=RIGHT*<DX*, LEH<DX*>- 

1) 
2505 DX$=RIGHT*( , '80800 ,, +DX*, 6) 

2516 DX*-LEFT*<:DX*, 2> + V"+HIDt<DX*, 3, 2> + V"+RIGHT*<DX$, 2) : RETURN 
3808 PRIMTg784.. CHR*-..3i>; STRING? 1 : fc4. "-' ! > ;PR1^T5?S0, " ■: PRESS 'ENTER-'' FOR NO CHANG 

3818 PRINT5B3S, "> ENTER "M*<Q>j CHR*<S>" : "; :GOSLiB100 

3828 IFIH*=""THENIK$=QQ$^G> 

3838 IFFL=3eTHENaG*CQ>=IN*:PRINTWi<Q>,CHRt<30^ INfr : RETURN 

3848 IFFL08THEN3588 

3856 ER=0:GOSUB1O30.IFER=1THENPRINTSTRING*<S, 3),CHR$aO>; :GOTO3610 

3868 PRINTOM<0.:,CHR*aS); IN*; :&!^vy}=lN*:RETURN 

3580 IFVHLaNi;)>2e&OHNDVRL<IN*>a080THENQQ$'!Q> = IN*:PRINTi5'f ! KQ),CHR$G:0); IN*; :RETU 
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3518 PftINT(?7SS, CHR$ai:J;PRINT@832.. M *+ 3CCT # MUST BE BETWEEN 2S31 AND £353 **"'G 
QSUB90 : QOTCG808 

4009 GQSUB1503 

4010 FQRQ=iT05:PRINT:PRINTQ;CHRS<:yV ! > M^CQ), STRING* <23-L£rKH* ? :Q> >, " "J 
4929 NEXT: RETURN 

5890 FORQ-iTOS : RERC«< Q ) ; NEXT 

5029 DRTfi H COKPRNV NAME " 

5025 DfiTR"CURRENT DRTE ", "VERft STRRT DATE ,: 

5030 DRTfi i 'VERft-TG~DRT£ P a L flCCT a " 
5049 DRTR ,! RETRINED EARNINGS flCCT # " 
5100 FijRQ=iTu5:REfiDM<Q>: NEXT: RETURN 



6080 ONERRORGGTGS010 : RETURN 

6610 RESURE 

6820 ONERRORGOTC0 : RETURN 
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1 ' "CflTMBINT" ~ GENERAL LEDGER i. i FEBUARV 1373 

2 ■' ** COPYRIGHT (C) 1973 TANDY CORP. , ALL RIGHTS RESERVED ** 
10 CLEAR : CLOSE : CLEAR4080 : DEF INTI -H : ONERRQRGGT03060 

2S OPEN"R ,( , 1, ,! CTRL":L*=STRING*<28, " ") 

30 CLS: PRINTS, "** CATEGORY MAINTENANCE & INQUIRY ** 

40 FIELD1, lflSYt, 2BflS A3*, 167ASY$, 20RS B9*: GET1, 2: C*<1>=H9*: C*<2)=B9* 

56 GETL 3:Ct<3>=fl9*:C*<4)=B9t:GETl, 4:C$<5)=fl9t:C*(6J=B9* 

60 PRINT&L2&; :DI«IN*,Wt,«,ULJi:Q0T018B 

180 IN*= " " : W*= I NKEY* : W=I4 : WD=0 : MS=*ID : WLK=HD : IFFL=WDTHENFL=1 

105 PR I NTSTR I NG* ( ABS < FL > , 136 > ■> STR I NG* < ABS < FL ) , 24 >, ' 

119 PRINTCHR*<M> ; ; F0RHK=lTO25 : U*=INKEV* : IFWO" "THEN115ELSENEXT : PRINTCHRJQ5); : F 

ORHE=1T025 : W*=INKEY* : IFW*<>" "THEN115ELSENEXT : GOTO110 
115 PRINTCHR*(H>; : IFflBS<FL>=WLKTHEN125ELSErFFL>WiNDW$>=" "HNt>Wt<= VTHEN170ELSEI 

FFL<6flNDW*> V"flNDWt<" : "THEN178 
117 IFW*=VTHENPRINTW$; : WL/i=WLE+l : G0T0175 

120 IFU*=". "ANDND=0THENtlD=l:GOTO17O 

123 IF ( H*=" ~ " ORH$= " + " > flNDWS=0RNDWLM=0THENWS=l : GQTO170 

125 IFM*<>CHRt<8)THENlS0ELSEIFl«tt.K=eTHEHlieELSEPRINTCHR*<24>; : IFFLJ-8THEN135ELSEIF 

PEEK(i6418)=44THEN14S 
138 IFPEEKa641S>=46THENWD=0:GOTOi35ELSEIFFE£K<ib4i8>=43GRPEEK(164l3)=45THENMS=0 
135 INS=LEFT*<IN& LENON*>-l> 
14@ HL«=WLM-1:P0KE1641S, OS:GuTGii& 

158 IFM*=CHR*C24)THEW > RIMTSTRING*<WLX,CHR*<24)Ji :GOTOi30 
155 IFW$OCHR$a3>THENii0ELSEPRINTSTRING*<ABS<:FL)-i'JL^, 32); 
160 PRINTCHR$<i5\; :W;:=25: NEXT: RETURN 
178 PRINTN*; : IN*=IN*+W* : WLJi=WLK+l 
175 IFRBS(FL>=1THEN168EL5E110 

130 FORJ=lT06:PRINT"CfiTEGORV u iSTR*CJ)j M : "DSKJ) :NEXTJ:PRINTSTRING$Cb"4, "- ;1 > 
130 PRINT@5?6,CHR*<31>" (PRESS 'ENTER-' FOR NO CHANGE, OR '@' TO EXIT) 
200 FL=20:FORJ=3TO6:PRINT@704. I CHR*<:<0>"> ENTER CATEGORY NG. "STRsCJ;'" . ":■ ;GuSUSi8 


205 IFIN*= ,, ^ , THEN220ELSEIKIN*= ,, "THEN215 
207 IN*=LEFT*aN$+L*,20) 

210 MID'HC?':Jj..l,2a>=IN*:PRINT@?b:+J*b4, CHR*C:S); tti$i 
215 NEXT 

226 PRINT£576, CKR*ai):PRINTI?704, "> ARE ALL ENTRIES CORRECT <YXN>? ", :FL=1 
225 GOSUB108; IFIN*= ,, N ii THENi30ELS£IFIN*O' ! Y"THEN220 
508 L5ETfl9*=CJ<l) : LSETB3*=C*<2) : PUT!.. 2 
510 LSETfl9*=C*C> : LSETB5*=C*C4> : PUT1, 3 
520 LSETA3*<:*<5> : LSETB3*=C*(b> : PUT1, 4 
530 CLOSE:RUN"GL" 
300@ RESUME 
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1 ' "GLMRINT" ~ GENERAL LEDGER i. 1 FEEURRV 1979 

2 ' ** CGPVRIGHT <C) 1979 TRNDV CORP. , RLL RIGHTS RESERVED ** 

16 CLS:CLOlSE:CLEf«8800:[)EFINTI-N:GOSUBl30:BL*=STRIMG*<6i0):DIHGLt(101> 

12 DEF FNRD#(R#;)=lD-2*INT<ft#+lD£+5D-i> 

15 B=<&H37E1) : K=l : FQRI=1T0181 : GL*( I )=BL* : POKES, K : NEXT : Q=FRECBLf ) 

20 GNERRORGOTO9900:OFEN"R", 2.. "CTRL 1 ' :G0T0198 

38 PRINT0S2, "** ACCOUNT MAINTENANCE **": RETURN 

40 F0RXX=1TC1008 : NEXT : RETURN 

50 FL=1:GQS18100:IFIN$="Y"ORIN*="N"THENRETURN 

52 PRIHTCHR$<S>.f :G0TO58 

60 PRINT"} ENTER SELECTION: "; :FL=i:RETURN 

106 3N*=" » : H*=INKEV* : ^J=i4 : WD=0 : WS=WD : WLK=WD : IFFL=WDTHENFL=1 

105 PR I NTSTR I NG$ ', RBS >: F L > , 136 > .; S TR I NG* < RBS < FL ') , 24 > ; 

116 PRINTCHR$<NX :FORhE=lT025:ld*=INKEY*: IFW*<> ,M, THENli5ELSENEHT:PRINTCHRt<15)j :F 

ORW/:=lTO25;M$=INKEV$:IFW*O N "THENU5ELSErCKT:GOTO110 
115 PRINTCHRt<«>; : IFFJEK<FL)=WLKTHEN125ELSEIFFL>0flNDWt>=" 1! RNE:#*<= ,i Z"THENl?e£LSEI 
FFL<8RND(^>V"RNDN$<" : "THEN170 

117 IFfcl*=", "THENPRINTWfc ■tfLK=WL/:+l:G0T0175 

129 IFW*=". "fiNDWD=0THENWD=l:uOTO170 

123 I F< W$= " - "ORH*= "+ " > fiNDWS=eflNW4LTi=0THENWS=l : GOTO170 

125 IFW$OCHR$<8}TH£Ni5@ELSEIFWL':=eTH£N118ELSEPRINTCHR$C24X : IFFL>8THEN135ELSEIF 
PEEK'; 16418 ) =44 THEN148 

130 IFP£EKa641fi>=4bTHENND=0:GOT0135ELSEIFPEEK(16418:>=43uRPEEK<16418>=45THEN^=0 
135 IN$=LEFTt<INt,LEN(IN*)-l> 

140 WLK=i«ILK-i:P0KElt"4iS, 136:GOT011G 

158 IFW*=CHR*(24)THENPRINTSTRING*<WLK, CHR*<24>>, :GGTQ108 

155 IFWJOCHR$a3:'THENlieELSEPRINTSTRING*CflBS<FL)-NL:-;. 32); 

168 PRINTCHR*<15>.; : i£i=25 : NEXT ; RETURN 

178 PRINTN& :INJ=TN*+W$;NL;>i4L*>i 

175 I FABS ( FL >=1THEN169ELSE118 

176 DRTA"flCCOUNT NUMBER", 2i3, 4, "####" 

177 DRTH"DESCRIPTIGN", 282,28, "'i X" 

178 DATA "TYPE <R/L/C/I/E>", 346, 1, " ! ", "CATEGORY <!-?>", 418, -i,, < : ' " 

179 DRTB" PREVIOUS' MOUTH TRANS", 474, -17, "##, ###, ###. ##-« 
ISO DflTfi"CURRENT MONTH TRANS", 533, -17, "#*,###,###. ##-" 
ISi DfiTR"VERR-TG-DATE TRRNS", 682, -17, "%#, ###,###. #*-" 

190 POKEB, K:DINTL3K7X IR<7>, Ui\?)> FMf <7>, IN*, Ht, W, WLK: POKED, K 

193 FIELD2, IRSVf, 20RS R9$, iu7HSV$, 20RS B9* 

196 J=l : F0RI=2T04 ; GET2, I : CRT* >: ,r ) =fl9$ : CRT*f J+i)=B9* : J=J*2 : NEXT 

296 GET2, 1 :FIELD2, 4ASD*.. 38RS C2$, 93RSH1$, 34RSH2S, 2RSNF'*, 2RSNRS-: NR=CVI -iNRS's K2=25 

:NP=CVI(HPt) 
220 FURI=1TQ7 :READTL*a >, IRu ), LU-, I >, F(1$G ) :NEXT 
238 OFEN"R",±, "GLMRSTER:!" :PRINTtf45S, "READING ACCOUNTS. . . " :K1=188 
248 FIELD!, 63AS RSXO), 63RS fi-$tlX- 63R5 RtCS), 63RS R*0) 
245 FIELD1, 2RS B3KGX ElASYS, 2RS Bt <!>.- S1RSV& 2RS B$<2X 61ASY$, 2AS B$C3) 
258 FORI=1TOK2:QET1, I : J=a-i)*4+I 

260 FORK=0T83 : B=CVI <\S$(K':> ) : IFB=@THENKi=J+K-.l : K=3 : 1=25 : G0T0298 
280 r p HD.$(GL*<J+K), 1, £2)=R3XKXPRINT@522, "ACCOUNT: :; 8, 
298 NEXTK, I 

295 DT*=STR*<CVS<M)) :DT*=RIGHT$<"0000e n +RI6HTt^U, LEMDT*)-!), 6) :DT*=LEFT* (DT* 

, 2>+V"+MID*<DTt, 3, Z.^ + 'V + RIGHItCDT*, 2) 
388 0NERRORGOTO6 : CLS : PR I NTTfiB < IS ) C2$ : GOSUB30 : PR I NT 
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fl THB<9J ,! <I> H Q U I R £ / E D I T 

"TRB<9>"<L> I :■: ■' ; : "i C C U N T S 

"TR£<5; i "CP> R ■' N T 1 P I r l. li h L fi N C E 

"TFiB<S >"<*?> ETURN TO HRSTEft MENU 
315 fie=S.Pf?INTi]S5i?.. CHP$Cil.)-pRTNTi35S5- = 'G0SUB6O 
32S G0SUB18G: IFINi= iM ^HEH3i5ELSE-;T=r^TR("RIPRL r ', IN*} : GNJJ+iGOT033G. 468.. 706.. 5800 

_, 500, 4000 

336 PRINKr!R£='y:-, :GOTO320 

400 IFKi>=1007HENPRINTiSS32, '"+* 180 RCCOUNTS RLRERDV IN FILE ** ,! : GC^US^e ; GOT0315 : 

ELSECOSUB1000:E1=1 
410 PRINTi="Sy6.: OnR$(3G>" ENTER '"@'" FOR ACCOUNT NUMBER TO EXIT " ;RC*=BL$ 

429 G0SUB1268 : inN^"@H'HENIFRB=0THEN388ELSL.I.>2 : ER^Ei : GOTOTiO 

430 PRINTi?768, CHR$GO>"> RRE ALL ENTRIES CORRECT Cf/H)? ":■ :G0SUB58: IFIN*="N"THEN 

PRINT@935,"< 'ENTER' FOR NG CHRNGE>" :GGTG420 
440 E1=G: IFK:L ; =0ORIP>K'iTHEN470 

450 F0RI=KlT0IPSTEP-l:riID*<GL*a+l)iliS3>=GL*a>:NEXT 
470 f l 1ID$<GL*aP>.-l..6:<>=RC*:Kl=Ki+l:GOTO4i0 
500 ER=0 : F0RI=1T0K1 : J=CVI <LEFTt<GL*<: I >, 2) > : IFNR=JTHENER=ER+1 
510 IFNP=JTHENER=ER+2 
528 NEXT 
538 IFER=0ORER=1TH£NPRINT&704, CHR'fGl)"** RCCOUNT ,, NP"VERR-TO-l>HTE P fi L.. MUST BE 

<R>DDED ++ 
548 IFER=GORER^£TH£NPRINTG7bS, CHR$<3i)'^* RCCOUNr'NR" PETRI NED ERRNINGS, MUST BE 

<R>DDED ** 
553 I FERO3THENG0SUB48 : G0SUB4G : G0TO388 
688 0NERR0RGGT03388 : IFK1<188THENK1=K1+1 : GL*<K1>=BL$ 

618 J=i+INT< <Kl~l)/4>: FIELD!, 63RS fi$<0>, 63RS fi$<iX63fiS H*(2>,b3RS f\t(.J) 
638 FORI=lTOJ:K=a-l>*4+l:FGRL=0TO3:LSETH*<L; : =GL$<K+L;j :NEXT 
£48 PUT1, I ; NEXT 
650 ONERRORG0TO8 : CLOSE: RUN U GL" 
700 GGSUB1080:ER^i:IP=O 

718 PRIHT§704, CHR*<3i)"<F>IND" J "<R>DD", "<N>EXT", "<P>REvI0US" 
715 PRINT'^EIMJIT".. "<D>ELE7E fl .= "<R>ETURN TO MENU" 
72G PRINT0332, CHR$<3i) J .G0SUB66 

730 G0SUB186 : IF I Ht= " R " THEN386ELEE I FI N*= "fi" THENRB=i : J J=l : GOTO4S0 
735 IF IN$= !, "TH£H723ELSEItf=INSrRt"FEHPD".. IN$> ;0Nl+IQG05LfB748, 750.. 800, B53, 388.. 358 
737 IFIG*ag-3>*aQ-4>*<IQ~5}=8THEN?20EL5E710 
740 RETURN 

750 PRINT§784, CHR$ai> :PRINTW6& "> FIND RCCOUNT HUilEER? "• 
755 FL=4:GOSUB100:IFIN$= ,, i?"THENRETURNELSEB=INT(VRL(IN$>>:FORI=lTOKl 
768 IFB=CVKLEFTS(GU';i),2>:'THENIP=r. I=Kl:f-OT:Q0T0778 
765 N£KT:FRINT§896, "*+ RCCOUNT NOT FOUND *+" :G0bUB4S: RETURN 
778 QOSLIB1108 : GOSGB3&80 : ER=8 : RETURN 

886 IFER=1THENPRINTS836.. "?? EDIT HHfiT "??" :GGSUB48: RETURN 

S85 RC*=GL$aP):FRINTi?704.. CHR$C31X: :PRINTi036, " < PRESS '"ENTER'' FOR NG CHANGE) 
810 G0SUB1288: IFIN$="£ "RETURN 
815 MID*03.L*<IP), i, 63>=RC*:RETURN 

858 IFIF+l>KiTHENPRINT£S36, "-* LRST RCCOUNT *#" :G0SUB49: RETURN 
368 IP=IP+l:GOT0778 

388 IFIP-K1THENPRINTC«896, '*** FIRST ACCOUNT ++" :G0SUE48; RETURN 
318 IP=IP-1:G0TG778 



GLNAINT - GENERAL LEDGER i. i FEB 197$ PRGE 



950 IFER=1THENPRINT@&9£, "?? DELETE aIHAT ??" ;GQSUB40: RETURN 

952 IFCVI(ni[>$CQL$(IP),£^2)>03THENPRINTia836,CHR*aa>"** ACCOUNT IN USE - CAN'T 

DELETE **":G0SU840:RETURN 
355 PRINT9836, "> RRE VOU SURE (V/N)? "; :GOSUB50 
9S9 IFIN$="N"RETURN 

378 F0RJ=IPT0Ki:MID*';QL*<J>,l,63>='(a.*<J+lJ:NEXT:Kl=Kl-l:IFIP<KlTHENIP=IP-l 
375 IFIP<1THENIP=0 
33S GOSUB1106 : ER=1 : RETURN 

1600 PRINT£192, CHR*Oi); :FORI=lT07:PRINTTL*a); " ";STRING*C24-LEN<TL*<I>), ". ") 
1010 NEXT:PRINT£640, STRING$<54, "-"^RETURN 

1956 L$=STR$'XVDa$)):IF0=INSTR<L*, ". ")THENL$=L*+". 80 B ELSEL*=L*+"00" 
106S L*=LEFT4KL*, INSTRCL*, ". ")+2):RETURN 
1100 FORI0=iTO7:PRINT@IfKI8>, CHR$G8); : NEXT: RETURN 

1150 ONERRWGOTO1180:ER=e:D#=VflL<IN*):IFMID*<IM*,LEN(INt)-2,iK>". "THENER=1 
1160 ONERRGRGOTGO: RETURN 
1180 ER=l:RESUMEil6B 
1200 I=1:IF.JJC1THEN1245 

121S L*=STR*<CVI<LEFT*<RC$,2))):GOSUB1230:IFIN*= ,, Ca' , THENfiETURN 
1215 B=INT(B) : IFB<1000ORB>9999THEN1210 
1226 FORJ=lTOKl:K=CVKLEFT*<GL*<J?i2)>:IFB=KThENPRIHTeS3£, "** ACCOUNT EXISTS **" 

; :GOSUB40:PRINTLiS32 J CHR*CBJi : IP=J:GCfSUB3000:GQTO12i8 
1225 IFBCKTHEN I P= J : J=K1 : NEXT : G0T01225 
1220 NEXT:IP=Ki+l 

1235 IFMIDKflC*, 25, 1)=CHR*<8)THENG0SUB1189 

1246 MD$<RC*, 1, 2)=MKI*<B) rPRINTOIRa)/ CHR*<38>; USINGFM*< I >; B> 
1245 l=2:L$=niD$Kf\Ct, 2.. 20) :GGSUBl238:i1IDS<hC$, 3, 20)=IN$+STRING$<20, 32) :PRINT@IR< 

D,CHR*a0);IN$, 
1256 I=3:L*»MD*<:flC*, 25, i> : GDSUB123S : IFO*INSTfi< "flLCIE", IN*JTHEI*L250 

1253 B=CVKLEFT*'IhlC*,2>>:IF<B=NR0Re=HP>flHDIH*O"C"THENFRINT@8:<2, " ** RETAINED E 
RRNINGS AND V-T-D PAL MUST BE CAPITAL ACCOUNTS **"; :GOSUB46:GOSUB40:PRINTSjf8 
22, CHRtGS); :GOTO1250 

1254 IFB<3008fiND(IN*="I H ORIN*= ,, E M )THENPRINTe832, " ** INCOME A EXPENSE ACCOUNTS 
MUST B£ OVER 2333 +*", :GOSUB40:GGSUB40;PRINT$332, CHRiaG); :GOTO1260ELS£MID* 
(AC*.. 25, 1)=IN* :QOSUB3820 

1255 IF90IN5TR< i 'fiLC , ',IN*)THENMID$<RC*, 52, l)=CHR*<a>:PftIhfT(?Ifl<4),CHRt<3e)i :GOTOi 
265 

1268 I=4:L*=fJIO*<fiC*,52,l>:GO£UB12S0:IF0=INSTR< (, 123456".= IN$)7HEN1260ELSEf1ID$':AC$ : 

,52, 1) = IN*:GGSUB3030 
1265 IFJJOITHENRETURN 
1279 I=5:L*=NID*<RC*,24, SO :GQSUB1056:GOSUBi230: IFER=2TH£N1275ELSEQ0SUSli56: IFER= 

lTHEN1270ELSEf1ID*(flC$, 34, S)=KKP$a>#) :PRINT@IFKD, CHRSaa), USINGF1WCI); D#; 
1275 I=7:L*=NID$(AC*, 26, 8):GOSUB1050:GQSUBi290:IFER=3THEN1280ELSEGO5UB1150:IFER= 

1THEN1275ELSEMD*';"AC*, 26, 8>=MK3)*(D#) :PRINT?IACI), CHR*<38); USINGFM*(I>; D#j 
12SO RETURN 
1230 ER=0:PRINTC«76S, CHR*G6)"> ENTER "TL$<I)": "; :FL=LN(I) :GOSUB1O0: IFIN*= M "THEN 

IH*=L* : I FVftL (IN*) 06 i"HEMER=3 
1235 B=CSNG<VHL<I IN*) ) : RETURN 

3660 PRINTC»Ifla),CHR*a6);U£INGFM*a);CVKf1ID*';GL$<IP),l,2)).; 
3610 PRINT8IA<2), CHR*<30>; MIM(GL*C IP), 2, 28); 

2015 IN*=MID«GL*aP), 25, 1) ;GOSUB3026: IN*=MID*<GL*(IP>, 52, 1) ; GGSUE3030 : GGTQ2046 
3026 PRINTC'IflG), CHR$G0)MID*{"fiSSET LIABILITVCRPITAL INCOME EXPENSE ", 1+ 

9*<IMSTR<"flLCIE", IN*)-1>,3); :RETURN 
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3838 PRINT@Ifi(4.),CHR*<30>; : IFVRLaN$)O0THENPRINT"("IN$") "CfiT$<VflL(IN*)}j -RETUR 

NELSERETURN 
3349 PRINT@Ifi(5), CHR*(30>j USINGFM*<5); CVD(MID*(GL$<IP>, 34, S)>; 
3858 PRINT8IR(6), CHR*(30); USINGFN$<6); CVD(MID*(GL$aP), 44, 8>)j 
3868 PRINT0IR<7), CHR*<38); U5INGFM*(7)j CVD<MID$<GL$CIP), 26, S>>; :RETURN 
4088 PRINW04,CHR$ai):FRINT" (ENTER ACCOUNT NUMBER #### , OR ACCOUNT RANGE 

####-#### ) 
4305 FRINT8S96, " (ENTER '@' TO EXIT)"CHR*<29)j CHR*<2?>; 
4818 PRINTS PRINT LIST FOR: ".; : FL=9 : GQSUB160 : IFIN$=""ORIN*="e"TH£N306 
4826 IL=INT(VfiL(IN$)):IF0=INSTR<IN& "-")THENIH=IL:G0TG5588 
4830 IH=INT(VfiL<RIGHT*(IN*,LEN(IN$)-INSTRCIN$ J , '-"))>>:G0TG5586 
50@8 IL=1881:IH=999S 
5580 IFPEEKC14312X128THEN5538 
5518 PRINT@704,CHR*ai>"** PRINTER NOT REfiDV **" 
5515 PRINT"} PRESS 'ENTER-' WHEN REfiDV, OR '@' TO FiBOF'T "; :FL=i 
5528 GOSU8100: IFIN*="8"THEN380ELSE5580 
5538 P0KE16424, 67 : PGKE16425, 1 : PG=6 : Hl#=8 : H2#=0 ; H3#=0 : E*=BL* : T*=FM*(5) + " "+FM*<S) 

+" "+FM*<?> 
5535 PRINTi?784, CHR*(3D" PRINTING. . . " : PRINT" (HOLD DOWN '<?' KEY TO STOP PRINTE 

R> 

5548 F0RI=lT0Kl:MID$(E$,i,63>=6L*(I):B=CVKLEFTJ(E$,2>>:IFB<:iL0RB>IH0R(e=NPfiNDJJ 
=3>THEN5680 

5558 IFPEEK(i6425X4THENGG5UB5780: IFINKEV*="!?"THEN5630 

5568 IFPEEK(1S425»60THENLPRINTCHR*(12) :GOT05550 

5579 IFMID*(E$, 52, 1)=CHR*<8)THENMID$(E$, 52, i>="-" 

5572 A*=MD$(E*, 3, 20) : IF0OINSTR(fi& CHR$(8))TH£Nfi$=STRING*(20, 32) 

5575 CN#=FNRD#(CVD(MID*(Ef, 44, 8>)> :LM#=FNRD#<CVD(MID*(E$, 34, 3))) :YT#=FNRD#(CVD<M 

ID*(E$. 26, 8))) 
5588 LFRINTRIGHT$(STR$(6), 4)jTAB(6)j :LPRINTU5INGFM$ <2); Bfc :LPRINTTRS^28); MIDGES 

, 25, 1), fAB(33); pJID$(E$, 52, 1), TABQ6), ; LPRINTUSIHGTSj Lilt.; CN#; ¥T# 
5590 IFJJ=3THENHl#=FNRD#(Hi#+CN#) : H2#=FNRD#(H2#+LM#) : H3#=FNRD#(H3#+VT#> 
5680 IFINKEV$="(3"THEN5690 

5610 NEk'TI : IFJJ<>3THENIFPEEE<(16425)>4THENLPRINTCHR$(12) : GOTO308ELSE330 
5628 LPRINT" " :LPRINTTBB(24); USING"BP,LANC£ = "+Tfc H2#j Hit.; H3fc 
5638 LPRINTCHR*<12> :GOTO360 
5698 I=Kl:NEXT:LPRINTSTRING$(2,133):LPRINTTfiB(5)"** PRINTING STOPPED **" :PRINT§7 

S4,CHR$C<i)"** PRINTING STOPPED **" :GOSUB40:GGTO308 
5700 LPRINTSTRING£(30, i '-") ;LPRINT" ";PG=PG+i 
5718 RC$= ;, TRIRL BRLANCE" : IFJ-JO3THENfiC*= !! flCC0UNT LIST" 
5728 LPRINTSTRING$(70,32) + ir PRG£ ", USING^r'; PG:LPRINTTRB(25)C2$ 
5730 LPRINTTflB<£5> "GENERAL LEDGER "fiC:*:LPRINTTAB(25)"PATE: "DT* 

5740 LPRINT" ":LPRIHT" " :LPRINT' , RCCT"TfiB(25)"fiCCT CRT. TRANSACTION 

flCTIVITV 

5750 LPRINT" NO. DESCRIPTIQN"TAB(25)"TVPE CODE PREVIOUS r-]0. CURRENT HO. 

VEflR TO DRTE 
5768 LPRINTSTRING*(S0, "="): RETURN 
9988 RESUME 
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1 ' "GLTXPOST" — GENERAL LEDGER 1, 1 FEBUARV 1973 

2 ' ** COPYRIGHT CO. 1979 TANDY CORP. , ALL RIGHTS RESERVED ** 

16 CLE: CLOSE : CLERR83O0 : G0SUB28 : BL$=STRING$<62, G) : ONERRQRGOTO39@0 

12 DEFFNRD#CA#>=1D-2*INKH#*1D2+5D-1> 

20 DEFINTI-N:DIHGL*C10i/, !!«,»$, W WL2 

25 E= C &H37E1) . K=l : FOR 1=17010! : GL * < I ) =BL* : POKES, K : NEXT : I=FRE <. BL* > : POKEB, K : GGT0200 

SO CLS:PRINT980 J "GENERAL LEDGER TRANSACTION POSTING" : RETURN 

48 FnRvx=lTOi0£i0 ; NE;a : RETURN 

50 FL=l:GuSUSlMO:IFiNi="V ,, ORIN$= i, N"THENRETURN 

52 PRINTCHR*<8;>; :GCTG50 

lm IN?=" " : Wt=INKEVt : 14=14: WD=6: WS=MD : MLK=WD: IFFL=WDTHENFL=1 

105 PRINTS7RING£CfiBSCFL>, 136 X. STRINGJCABS(FLX. 24); 

110 PRINTCHRtCW), :FQRWK=1TG25 . W*=INKEVt: IFWtO ""THEN115ELSENEXT: RRINTCHR*<15>.; :F 

0RtC-;=lT025 : m= I NKEV* : IfmO- " " 7HENii5£LSENEXT : GOTOliO 
115 PRINTCHR*CW>; : IFflBS<FL)=WLKTHEN125ELSEIFFL>0fiN£)Wt>=" "flNDW*<="2"THEM170ELSEl 

FFL<0fiNDM*>V"fiNDEJ$<: H : "THEN170 
117 IFW*= H , "THENRRINTMS; : tL?i=WLK+i : Q0T0175 
120 IFK$=". H flNDI^=8THENUl>=l:GOTOi;'0 

123 IF<W*="-"OSW*="+ 1, >RNDHS=efiNDWLK=iS"mEm£=i:GOTOi?0 

124 IFF2=lRNDN*="?"ANDi,!L;-;=0THEN17O 

125 IFW*OCHR*<8)THENi50ELSEIFHLK=eTOEN110£LSEPRINTCWW(24>j : IFFL>0THENO5£LSEIF 

PEEK C16418> =44THEN14@ 
130 IFPEEKCl641S)=4&THENND=O:GOTO135ELSEIFPEEKClS418)-4i:ORPEEK<lb4i8>=45THENWS=0 
135 IN*=LEFT*(IN*, LEN(IN*>-1) 
140 kO=NLK-i : P0KE1S418 ■ 136 : G0T0110 

150 IFW?=CHR$C24>THENPRINTSTRING$(yL"-;, CHR$<24>>; :G0T0180 
155 IFNK>CHR*C13>TH£Nli0ELSEPRINT5TRING$CReSCFL>-WL;-:,32), 
160 FRINTCHR*C15X; :Wi=25: NEXT; RETURN 
170 PRINTMfc :IN$=IN$+i4$:.NL/:=WL':+l 
175 IFR£S<FL>^iTHEN160EL5Eil6 

180 DATA 33, 128, 62, 17, 64, 62, 1, 128, 01, 237, 176, 201 
200 OPEN"R", 1, "CTRL" 
210 FIELD!, 4flS F9*, 30R5 C2£, 93RS Fl$, 2R5 LS* , 4RS DL$, 2AS NTS, 4RS T5£, SAS RP*, 2AS 

LR*,8AS F3$, 2AS LD*. 2flS K5$, 2RS NPJ, 2AS NR$:GET1, 1 
226 DT$=5TR*<CVS<F0$) > : DT*=ftIQHT*< ( '06000" +RIGHT*(DT*, LEN<DT*)-i>, 6) : POKEB, K 
230 DTt=LEFT$<DT$, 2>+V"+HI0$CDT$, 3, 2)+"/"+RIGHT$CDT*, 2> :LS=CVKLS$> :LR=CVICLR*> 

: LD=CV I CLD* > : NT=0 : POKES* K 
240 QPEN"R",2, "GLNASTER:!" 
250 PRINT045S, "READING ACCOUNTS. . . " :K1=100 
255 FIELDS, 63AS A*C3>,63AS A*<1),63RS fi*<2>, 63fiS fl*<3> 
260 FIELDS, 2fiS B^O), 61ASV$, 2AS B*<1>, 61RSV$, 2AS B*<2>.. 61ASV$, SAS B$Q> 
265 F0RI=1T025:GET2, I : J=<I-1>*4+1 

270 FQRK=0TO3 : B=CVI CB*CK> > : IFB=0THENK1=J+K-1 : K=3 : 1=25 : GOTQ280 
275 MID*<GL$CJ*KX1, 6:0=A$CK):PRINT§522, "ACCOUNT :"B; 
280 NEXTK, I :DIMGN#CK1?, TR$C6> : AS#=0: T*="##, ###, ###. S#-" 
282 DEF FNRD#CA#>=lD-2*lNT<ft#*iD2+5D~l> 
284 DEF FNIWChD=576+M*64 

£85 CLCSE2:0FEN"R' 1 ,3, "DETAIL:!" :0PEN"R", 2, "GLJ0UR:0 !l :CL0SE2 
230 KILL"GLJOUR:0":OPEN"R",2, "QLJOUR:0" 
295 TT*=5TRINGt<42,e>:F0RI=dT06:TR*(I) = n*:NE>!T 

330 FIELD 2,42 AS VI*.. 42 AS Y2$, 42 RS V3$, 42 AS V4$, 42 AS V5*, 42 AS V6$ 
3@5 P*="":F0RI=1TQ12:READJ:P*=P$+CHR$CJ>:NEXT 
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387 m=STRING$<42, 8> :F0RI=1T06:TR*<I>=TT*:NEXT 
319 N9=l : L9=N9 ; N7=N9 : L7=N3 : 0NERRGRG0T08 : ID$=LEFT*<DT* J 5) 
315 PRINTS714, "READY TG START SESSION "LS+1". . . " :QG=FRE<BL$) 
328 PRINTG16, C2fc :PRiNT0144, "DATE: "DTfc TflB< 45) "SESSION: "IS+Ij 

336 PRINT8192, CHR$ai)"DOCUMENT — " :PRINT"POSTING DATE . . 

348 PR INT "ISSUE DATE .... ": PR I NT "AMOUNT " :PRINTSTRING$<64, 176); 

350 PRINT"ACCT DESCRIPTION "TAB';' 23) "AMOUNT (OR y ?''>"TAB<4S)"Y/N" 

400 GGSUB9660:PRINTg2S7, LD+1.; 

419 PRINT0784, CHR$G0)"> ENTER NAME OF DOCUMENT C0--' TG EXIT): "; : FL=£G : G05UB16G 

:IFIN*="@"THEN±280ELSEIF1N*=""THEN4±6 
426 DJ*=LEFT*(IN*+5TRINQ*(20, 32).. 26) : PRINTS217, DJ$.; 

446 PRINT§704..CHR$<30>"> ENTER POSTING DATE (IWDD/YY): "; : FL=8 : GQ5UB3000 
456 PRINTG272, IN*.; :DR ! =VAL(LEFT*aN$, 2)+MID$aN*, 4. 2>+RIGHT*aN& 2) > :DR$=f1KS$<DR 

!) 

455 PRINT6832, CHR$<38) ,! (PRESS 'ENTER'' TO USE LAST ISSUE DATE; "ID*"} 

468 PRINT6704.. CHR*(38)"> ENTER ISSUE DATE (MtVDD): ",; : FL=5 : G0SUB8866 

476 PRINT6336.. IN*.; :DEM=VflLaEFT*<INfc2)+RIGHTt<IN*,2)>:0E$=MKI*<DEK) 

475 0NERRGRG0T09936 

480 PRINT§704,CHRt<31)"> ENTER AMOUNT <'?' IF UNKNOWN): "; : FL=-17 : F2=l : GOSUB1S0 ■ 

F2=8 : I F I m= " " THEN4S8ELSE IFI N*= " ?"THENGOSUB1106 : G0TG4S7 
4S2 IFMID*(IN*, LEN(IN*)-2, DO". "THEN4S0 
4S4 B#=VALaN*):IFB$K=6THEN4b'8£LSEPRINT0408, "", USINGT*; Btt.; 
487 0NERRGRG0T06 

450 PRINT0704,CHRi<30)"> ARE ALL ENTRIES CORRECT CV/N)? "j :FL=i:G0SUB58 
560 IFIN*="N H THEN406 

526 B1#=B# : B2#=0 : B3#=6 : B6#=6 : AP#=RP#+B# : NT=NT+1 : LD=LD+1 : KK=6 
536 PRINT6FNINCKK),CHR*';31).i : FL=~4 : GGSUE180 
540 ONERRORGOT09918 : GK=VRL U N$) : I F G/K1808ORG;O3395THEN538 
556 I FG£=CV I < K?t > GRG^-CV I ( NS$> 7HEN956 

560 G*=MKI$<GJi) : F0RK=1TOK1 : IFG$=LEFT$<GLJOO.. 2)THENK2=K : K=K1 : NEXT : GOTG580 
570 NEXT : FORK =iT05 : PR I HT(?FN I N < KK ':> +6, " +* NOT FOUND *+ " .; : FOR 1 0=1TG388 ; NEXT : PR I NT@F 

NIWCKKH6, CHR*<36;.; :FORI0=1TO20:NEXTI& K:G0T0538 
580 PR I NT0FN I N ( KK ) +6, CHR* < 36 ) .; M I D$ ( GUT ( K2 > , 3.. 26 > ; 
626 PRINT0FNIi*<KK)+27, , :0NERR0RQ0T0992e:-FL=-17:F2=l:G0SUB18e:F3=8:IFIN*=""THEN52 

0ELSEI F IN*=" ■' " THENQOSUB1150 : G0T0622" 

621 IFMID$aN*, LENaN£>-2.. DO". "THEN626 

622 Dfl#=VfiL(lN*> 

636 IFDR#=fiS#THEN3630 

631 IFB#=8THEN646 

633 IFDA*KfiS#ANOABS >: B3#+0fi#) -< 9D-4 »B#THEN3080 

636 lFDR#>AS#HNDA8S';e2#+DA#>~(9D-4)>B#THEN3066 

646 PRINT6FNIW<KK)+27, CHR*<30); USINGT*.; Dfi#; 

656 PR I NTGFN I M < KK > +49, CHR* ( 36 ) ; : G0SUB50 : I F I N*= " N " T HEN I FF4=1THENB#=6 : G0T0536ELSE5 

30 
766 I FDA#<flS# I HENB3#=B3#+Dfi# : ELSEB2#~B2#+DA# 

724 PRINT6361, USINGT*;B2fc :PRINT§365, USINGT*, B3#, :B6#=FNRD#(B2#+B3#) 
736 MID$aR$a9), 1, 42)=G*+NKI$t:LD>+DJt+DR$+DEt+MKD$<Dfl#)+MKI$':0>+ u !1 " 
746 L9=L9+i 
758 IFLSK7THEH788 



i''69 LStTVi*=TR$--D 
SETY6$=7R:f (6) 



LStTV2*=TR*<£):LSETV3*=TR*(3):LSETV4t=rRt(:4>:LSETV5*-TR*C5) 

PUT2, N3 



76 L3=l:N9 : =r9+l.rURLX=iT06:HID$'::TR*<LX),i.. 42)=TT* :NEXTLX 
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788 I FB#=GfiNDB6»-0THENQQSUB8@0 : GGT0968 

785 IFftBS<RBS<B2#;-B#X. SiftNDHB5';HSS<S3#)-B#)<. 01THEN988 

73@ KK=KK+1 : IFKK>6THENKK=6 : 605067696 : GGT0538ELSE52S 

888 B#»B2#:PRINTe40&USINGT&3#; :F4=0: RETURN 

900 IFRBS<fiBS<B2#;!-3#». 809THEN918 

965 IFflBS<flBS<B3#)-Btt». 069TKEN918 

906 N7=N9:L7=L9: IFKfO5THENGOSUB7080 

967 IFF4=1THENGGSUB308 

968 PRINTC966, "** DOCUMENT BflLflNCED — PRESS "tHlhR" TO CONTINUE ** ", :FL=i:GOSU 

RL00:GOTO4ae 
910 FORI=iTO5:PRINTffNIW<KK^CHR*(3e>iTflBC10)"** GUT OF BRLRNCE ***i :FGRI0=1TO36 

0:NEXT:PRINTeFHIW<KK^CHR*<3a>i :F0RI8=1T028:NEXTI0, I :GOTO530 
950 PRINT" > RRE VOU SURE (V/N)? "; :G0SUB58: IFIN$="N"TH£N538ELSE560 
1180 PRINT@406, "* UNKNOWN *"i : B#=0 : F4=l : RETURN 
1153 IN*=STR*<-B6#> : IFF4=0TfENR£TURKELSEB#=<fleSCB2#)+fBS<B3#)+CDBL<:flBS<fiBS<:S2#)- 

RBS<B3#>)>)/2:RETURN 
1200 REM "CLOSE OUT" 
1205 QNERRQRGGT0938S 
1210 IFL9=1THEN1380 
1220 LSETVl*=TRt<l>:LSETV2*=TR*<2>:LSETV3*=TR*(3):LSETV4t=TRt(4^LSETV5*=TR*(5>: 

LSETVe*=TR*<6) 
1230 PUT2.-N9:N9=N9+1 
1309 PRIKTftL92,CHR*<31>iCHR*<26>i : IFN9=1TH£NPRINT"+* NO TRRNSRCTIONS ENTERED ~ 

RETURNING TO MR5TER MENU **":GGTQ2638 
1319 PR I NT5192, CHR* < 31 ) ; CHR* C 26 ) " > PRESS ' ENTER ' WHEN READY TO PR I H l RECflP " i : FL 

=1;GGSUB100 
1326 N=8 : L=60 : N9=N3~i : P0KE16424, 67 : PDKE16425, 1 : SK*=" " : B5#=0 : B4#=0 : IFL9=1THENL9=7 
1325 GOSUB3S08 : PRINTED CHR*<31>" PRINTING DOCUMENT SEQUENCE POSTING SUMMARY.. 

1330 F0RI=1T0N9:L8=6: IFI=N9THENL8=L9-1 
1350 FORJ=1TOL8 

1369 FIELD2, <42*<J-1»R5 Dl*, 2fiS G*, 2RS SD$, 20R5 DJ*, 4fiS DR*, 2RS DE$, 3RS Dfi$, 2fl£ 

VI*, IRS TC$:IFJ=1THENGET2, I 

1370 IFSK*=£OTTHEI*L450 
138S IFSK*=" ,, THEN1420 

1400 LPRINTTRB<48>"T0THL H ;TRB<;55JUSINGT$.iFNRD#<B4#>; :LPRIN7" +*" 

1405 IFO55THENGOSU84000 

1410 B5#=B5#+64# ; B4#=8 : L=L+2 : DV*= " " 

1426 IFL>55THENGOSUB4800 

1425 IFCVKSD$>=0THEH1580 

1430 LPRINT" ,! : LPR I NT " *+ DOCUMENT : "CV I \ SD*> "~ "DJ$ 

1440 L=L+2:SK*=SD* 

1458 DR$=5TR$<CVS<t)R*)>:t)E*=STR*<CVI<DE*)):Dfl#=CVD<Dfl*) 

1460 DR*=RIGHT*<"60080 1 '+RIGHT*<I[)Rfc LENCOR*)-!^ 6) 

1470 DE$=RIGHT;IK"000"+RIGHT*<DE*,LEN<DE*>-1), 4) 

1480 DR*=LEFT*<$R& 2) + V H +MID*<:DRfc 3, 2)+V H +RIGHT*<DR& 2> : DE*=LEFT$<DE*, 2>+V"+R 

IGHT*<DE*.2) 
1500 FORK9=lTCfKl:IFLEFT$.<GL*(K9>.2)=G*THENK8=K3:K3=Kl:NEMT:G0TO15_<3 
1520 NEXT:GOTO1530 
1530 E*=GL*<K8> 

1549 D4$=MID*<E*, 3, 26) :OT#(K8)=Gro<K8>+DB#:HfT*=niW<E$, 25, 1) 
1560 LPRINTCVI <G#)j TRB<6>D4*; TR6(29>RT*j TfiB<35)TCti TABOSODR*; " "i DE*.< " "t USING 
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T*jFNRD#<DA#> 
157G B4#=B4#+DA# : L=L+1 ; DV*="i" 
1589 NEXT J, I 
1690 IFL>55THENGOSUB4000 

1700 IFDV*="l"LPRINTTfle<48) ,, TOTfiLMRB';55>U5INGT^FNR[>#CE:4#>j -LPRINT" **" 

1716 LPRINT" ":LPRINTTA6<20:>STRING*<27, "*") 

1726 LPRINTTABae? "SESSION TOTAL "j USINGT*; FNRD#CB5#> 

1739 LPRINTTAB<20>STRIN6*<:27, "*"> 

1740 PRINT" PRINTING ACCOUNT SEQUENCE POSTING SUMMARV, . . 
1800 L=60 : B4#=0 ; B5#=0 : FORI=lTOKl : IFGM#< I :>=RS#THEN1868 
1838 IFL>55THENGOSUB4500 

1840 LPRINTCViaEFT*<GL*a>,2:>>;TABSl8>MID*<GL*a>,3,20>.;TABO3>USINGT*:FNRD#<:GM 
#<I>> 

1850 B5#=B5*M-GMtKI):L=L+l 

I860 NEXT I 

1980 IFL>55THENG0SUB4598 

1910 LPRINT" ":LPRINTTRB<20)STRING*<27, "*"J 

1920 LPRINTTABC20VTOTRL ", TAB<33>USINGT$; FNRD#<B5#> 

1938 LPRINTTRB(20>STRING*<27, "*'>:LPRINTCHR*<12> 

2800 PRINT">"TRB<3.V'<:Y>ES, POST THIS SESSION"TflB<35>"<N>0, CANCEL THIS SE^ION " 

■> :GOSUB50;IFIN*=*'N"THEN10 
2910 PRINT:PRINT" POSTING TRANSACTIONS — DOCUMENT- 
2030 ONERRORGOTO9900 
2106 REM "UPDATE AFTER POSTING" 
2193 IFLS>999STHENLS=999 
2106 IFLD>9998THENLD=1000 
2118 LSETL5*=MKI*<LS+1> :LSETW.*=MKS»<VfiL<LEFT*CDT*, 2)+MID*<DT*, 4, 2>+RIGHT*<DT*, 2 

>> J :LSETNT*=MKI$<NT> :TSi=CVS<TS$)+NT:LSETTS*=MKS*aS! > :LSETAP$=MKDt(AP#) 'L^ 
ETLD*=MKI*<LD> 

2200 LG*=BL*:F0RI=1TGN9:L8=6: IFI=N9THENL3=L9-1 

2210 FORJ=lTOL3:FIELD2, <42*CJ-l))flS U*, 42RS Ul*: IFJ=1THENGET2, I 

2220 PRINTS547, CVKMID*CUi*, 3, 2)h :G0*=LEFT*<U1*, 2> : IFCVKG0*)=0THEN2410 

2230 FORK=lTOKl : IFLEFT*<GL*aO, 2>=G0*THENK2=K :K=K1 :NEXT : G0T02258 

2240 NEHT:GOTO2410 

2250 MID*<LG*,l,63>=GL*tK2J 

2300 LR=LR+1: IFCVKNID*<LG*. 53. 2>>O0GOTO2320 

2310 MIDt<GL*<K2>, 53, 2>=MKI$<LR> :GOTO2350 

2326 ND=CVKMID$aG*, 23,2)> :S=INT<(ND+5V6>:Rl=ND-6*<S-i:> 

2330 FIELD3, f42*CRl-l.-)+38>RS V*. 2AS V1*:GET3,5 

2340 LSETV1*=MKI*<LR}:PUT3.. 5 

2350 MID* CQL*CK2>, 23, 2>=MKI*<LR> 

2380 S=INT(<LR+5>/6>:Rl=LR-6*<S-l>:IFRl=0THENRl=l 

2385 IFS=0THENS=1 

2390 FIELDS, < 42* < Rl-1 ;0 RS V*, 42RS VI*: IFR101THENGET3, S 

2400 LSETV1*=U1*:PUT3,S 

2410 NEXT J, I 

2500 REM "ACCUMULATE MTD * & WRITE GLMASTER" 

2510 LSETLR*=MKI*aR>:PUTl, 1 

2515 PRINT:PRINT" CALCULATING MONTH-TO-DATE... u i 

2520 FQRI=1TGK1 

2530 IFGM#<I>=AS#THEN2550 

2546 CN#=CVD<MID*CGL*U >, 44, 8) >+GfflKI > :MID*CGL*< I ), 44, 8)=MKD*<CN#> : YT#=CVD<:MID*< 
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GL*a>,2&3>)+GM#a):mW<0_*(I),26j8>=MK[>*<VT#> 
2550 NEXT I 

2569 CL0SE3:0PEN U R H ,3, "GLMRSTER:!" :PRINT" WRITING ACCOUNTS. . . "s 
257@ IFKK100THENK1=K1+1:GL$>:K1>=BL* 

2586 J=1+INK<K1~1V4:!:FIELD3, 63AS fl*(@X. 63AS A*<l),6iA5 fi$C2>,63Rb fitCO 
2598 FORI=lTOJ:K=a-i)*4+l:FORL=0TO3:LSETR*(L)=GL*<K+L>:NEJ<T 
£600 PUT3, I : NEXT 

2616 PRINT@?@4,CHR$aiX;CHR$<£6>"+* SESSIONTS+l'TOMPLETE ** 
2626 PRINT" "NT" DOCUMENT"; : IFNT01THENPRINT"S" 

2639 CLOSE :RUN"QL" 

3660 F0RI=lT05:PRINTeFNIW<KK)+51, "* INVALID *"; :FORI0=1TO300:NEXT:PRINT0FNIW<KK) 

+51,CHR*<30)j :FORI0=1TG20:NEXTI0, I 
301@ G0T0626 

3560 IFPEEKC14312X128THENRETURN 
3510 PRINT@832, CHR$<31>" ** PRINTER NOT READY ** 

3520 PRINT H > PRESS ■'ENTER 1 ' WHEN PRINTER IS READY? "; : FL=1 : GO5UB160 : GOTO3580 
4600 GOSUB5060 

4665 LPR I NT "DOCUMENT SEQUENCE" :LPRINT" " 
4016 LPRINT"ACCT 1, jTflB<26y , ACCT ENTRV POSTING ISSUE" 
4020 LPRINT" NO. DESCRIPTION"; TAB<26> "TYPE TYPE DATE DATE"; TAB<61>"RNQU 

NT" 
4038 LPRINTSTRING$<86, "=") 
4946 RETURN 
4566 GOSUB 5668 

4510 LPRINT"HCCOUNT SUMMARY" : LPRINT" " 
4520 LPRINT"ACCT NO. DESCRIPTION"; TfiBa7>"AHGUNT" 
4530 LPRINTSTRING$<80, "=") 
4546 RETURN 
5608 N=+I+1:L=8 

5682 I FP£EK< 16425 ) <5THEN5818 
5005 LPRINT CHR*<12) 

5618 LPRINTSTRING$<38, "-">;LPRINT" " :LPRINTTABC58y , SESSI0N N LS+l ,, PAGE"N 
5620 LPRINTTA8(27>C2* 

5036 LPRINTTRBC27> :! GEN£RRL LEDGER POSTING SUMMARY" 
5035 LPRINTTflB(27) M DRTE: "DT* 
5040 LPRINT" " 
5850 RETURN 

7096 REM ** SCROLL ROUTINE ** 
7810 I2=6:P0KE VRRPTRUZ>, PKK<VflRPTR<P*>+l) 
7020 P0KECVflRPTR(I2>+l)/ PEEKCVflRPTR<P*)+2> 
7030 DEFUSR0=IZ QQ=USR8<I2> : PRINT@960, CHR*<3:3X : RETURN 
3008 REM ** DATE ROUTINE ** 

8865 GOSUB180:IFIN*=""THENIFFL=5THENIN*=IW:£LSEIM*=DTt 
8067 IFFL=5THENIM=IH* 
3018 IF^EN<IN*>OFLTHENS0OTELSEMM=VflL<LEFT*<IN*,2)>:MP=VflL(nil>*<IN*,4>2>):riV=VflL 

(RIGHT*<HKfc2)) 
8015 I FNMaORf1M>i20RMD<iORMD>310RMI D$( I N$, 3.. 1 > O ' '/"'THEN8858ELSE IFFL=5THEN8625 

8828 IFMY-C80RMY>9S0RMID*< IN*, 6, 1>O"/"THEN8@50 

3025 MX=3i : 0NMMG0T08628.- 6027, 8823.1 3626, 8028, 8626, 3828, 8828. 3826, 3823, 8826, 8628 

3326 NX=38 : G0TD68628 

8027 MX=28:IFFL=5TH£NMy=29:GOTO302SELSEIFMY/4=INT<MY/4>THENMK=MX+l 

8828 IFMM>MXTHEN8050ELSERETURN 
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36S3 PRIWTSTRIMQ*(FL8Ji :GDTO8000 

3860 PRINT8269, " --"CHR$<30>i :FORI=27£TO480STEP64:PRINTei.CHR*(30>i :NEXT:PRIN 

Te576,CHR*<31>; 
3015 RETURN 
3960 RESUME 
9910 RE5UME536 
9920 RESUME629 
9536 RESUME48G 
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1 ' "TXREPORT" — GENERAL LEDGER i. 1 FEBUflRV 1973 

2 ' ** COPVRIGHT <C> 1973 TRNDV CORP. , RLL RIGHTS RESERVED ** 

18 CLS:CLOSE:a.ERR8800:DEFINTI-N:GOSUB3e:eL*=STRING*<63,@):[>IHGL*<10i>, IN*,H*,H, 

12 DEF FNRDt<R#>=lD-2*INKfl#*lD2+5D-i> 

15 B=<&H37E1> : K=l : FQRI=iT0181 : GU£< I )=BL$ : POKES, K : NEXT : B=FRE<BL*) : G0TQ188 

38 PRINT@82, "** TRRNSRCTION REPORTS *#": RETURN 

48 FORXX=lTOi@ee : NEXT: RETURN 

5@ FL=l:GOSUB108:IFIN$= i '¥"0RIN*="N ,, THENRETURN 

52 PRINTCHR$<8>; :GOTO50 

60 PRINT"> ENTER SELECTION: "i :FL=1: RETURN 

160 IN*= " " : U$= INKEY* : W=14 : WD=8 : WS=WD : HLK=H[> : I FFL=KDTHENFL=i 

105 PRINTSTRING*<flBS<FL), 136); STRING$<RBSCFL>, 24>, 

110 PRINTCHR$<K); :R)RWZ=1T025:W*=INKEV*: IFWf<> ,,u THENli5ELSENEKT:PRINTCHR$a5>.; :F 

0RW;:=1T025 : W$=IHKEV* : IFW* <>" " THEN115ELSENEXT : G0TG118 
115 PRINTCHR*(W)i : IFfffiS(FLJ=ULKTHENi25ELSEIFFL>0ffl«»*>=" "RNDU$<=' , Z ,, THEN178ELSEI 

FFL<0fiHDWt> V"F»©H*< U : "THEN17S 
117 IFN$=", "THENPRINTWt; : WJi=WLX+l : G0TO175 
12S IFU*= U . "flNDWD=STHENWD=i:G0T017S 
123 IF<N*="-"ORN$="+">RNDWS=6RNDtJL^=0THENWS=l:GOTO17@ 
125 IFI4$OCHRS'::S)THENi5yELSEIF^L;:=0THEN110ELSEPRINTCHR**:24), : IFFL>8THEN135ELSEIF 

PEEK C1S41S > =44THEN146 
130 IFPEEKf;i6418>=4faTHENWD=0:GOTO13-5ELS£IFPEEKab4iS:i=43ORPEEK';i641S>=45THENWS=@ 

135 IN$=LEFT$<IN$,LEN';IN£}-i> 

140 W.X=ULK-i : P0KE1641S, 136 : G0T0110 

158 IFW*=CHR$<24>THENPRIHTSTRING*<ML& CHR*<24>>; :GOTO100 

155 IFN$<>CHR$CO>THENllSELSEPRINTSTRING$(fib'S(FL>-WL;^S2), 
168 PRINTCHR*<15>j : W£=25 : NEXT : RETURN 

170 PRINTItfi :IN*=IN*+W*:WLJi=HIJi+l 

175 IFftBSCFL)=lTHENi60ELSE118 

186 0NERRGRGQTG3308:OPEN"R",3, "CTRL" : FIELDS, 4RS DT& 38RS C2?v 113RS D$, 2fiS LR*:GE 

T3, l:DT$=STRiKCVS<DT$XVLR=CViaR$) 
185 DT*=RIGHT*< ,1 00000 ii +RIGHT$«>T& LEN<DT*)-i>, 6> :DT$=LEFTt<DT£, 2}+V"+NID*<DT& 3-' 

>2) + V+RIQHT*tDTt,2> 

156 GPEN"RM, "GLMfiSTER:l H :PRINT(M58, "READING ACCOUNTS. . . " :K1=188 

132 FIELD1,63RS fl*<8>,S2fl£ flt<l)*63RS fl*<2>,63flS R*(3> 

194 F I ELD1, 2RS B* < 8 ) , SIRS V*, 2RS B* < 1 ), 61RSY$, 2flS B$ < 2 ) , 61RS?$, 2RS B$ < i ) 

136 F0RI=1T025:GET1, 1 :J=a-l>*4+l 

137 F0RK=8TG3 : B=CV I < B*< K > > : IFB=8THENK1=J+K-1 : K=3 : 1 =25 : GOT019S 

138 HID$<GL$<J+K>, 1. 63>=fl$<K:i :PRINTG522, "RCCOUNT: "Bj 

133 NEXTIO I:0FEN"R",2, "DETRIL:!" 

200 CLS: PRIMTTHB<1SJC2*: GOSUB30:PRINTTflB(lS>"DfiTE : "DTS 

205 T$="##, ###,###.##-": Jl^" ACCOUNT NO. SEQUENCE": J2*="DQCUi1ENT HO. SEQUENCE" :B 

1#=0 : B2#=0 : N=S : L=G6 : DK$=" " : 1"I*=STRING$<31, 22) : Lt=M*+M$ 
210 PRINT§256, CHR$<31>jTfiB(3)"<R> C COUNT NO. S E Q tj E N C E 

"TRB<9}"<0> CUHENT NO. SEQUE N C E 

"TRBC3>"<R> ETURN TO Pi fl S T E R hENU 
215 PRINT0512, CHR$ai)j TRBOX : GQSUBG0 : E*=BL$ : F=0 : FF=8 : «F=3 
228 G0SUB188 : IFIN*=" i, THEN215ELSE0Nl+INSTR< "RDR", IN$>GGT8225, 220, 240, 227 
225 PRINTCHR$<S>; :G0TQ226 
227 CL0SE2:CL0SE:RUN"GL" 
238 GOSUB6800:IFIN*="&"THEH2@8ELSEJ*=J1S;J1*= M DOCUMENT": J2*="RCCT" :N1=S2:DI$=LE 
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F T* < b£, 8 > ■ J M= " " : VC$=Vfi* ; Vh*=VB* ; VB*=VC$ : GGTO250 
240 QQSUBe00S:I^iN$-'^ i 'TH£N2^ELSEJ^J^$:Ji^= il HCCT l! :J2i■= i 'DOCu^lENT Pi :Nl=S:J2$= ,, * 

*":DU*=LEFT*{Lf, S) :GCTO806 
258 FORI=iTOKl 
2S0 MIM(Et,1.63)=GLt(I>:LK=CVI(HID*<:Et,53,2^:i)e$=t1ID*(ES,2,2S>:Ji=CVKi.EFT$<E* 

.■2)) :TyS=HID$<L$.' 2?.. i> 
29@ IFLK=0TH£N380 
235 IFDK$OD0£TH£NGG5UE!45S0 

SB© S=INT< t.LK+5>/6) : Ri=LK+6*(l-S> : J3*=" " : IFINKEV*= M @"THENGOSUB3800 : GOTO208 
310 FIELD2, 42*(Ri-iPHS DZ*, 2A8 G$, 2AS Li*, 23fi£ D3$, 4AS DR*, £A5 D£*, 8ffi B*, 2AS LK 

$ .. ifiS T3$ : GETS. S 
326 IFG£OLEFT3KE$, £>THENS660 
330 BWVMEt) : LK=CVKLKt> : LI=CVI <L1£> 
356 GOSUB 5086: LPRINT" " 
370 IFLKO0THEN235 
380 NEXT I : FF=1 : GO8U84500 : GGTG120S 
808 FORI=iTOLR:S=INTai+5)/eO:Rl=l>S*i:i-SVJ9*="'^IFINKEVJ:="l|i M THENGOSUE30@e:GOTO 

263 
S2& FIELDS, 42*<El-i)R5 DZ*, 2FSS NG'f, 2fiS SD£, 2SRS DS$, 4flS DRt, 2fiS D£¥, SA8 B*, 2AS L 

KJ, IRS 10$: IFRl=iTHENGET2, S 
325 Ji=CVIt£DSO 
S3S IFDQ*ODK$THENGu£UB45SS 

S40 FGRJ=1T0K1 : IFNG*^LEFT*<GL$a>, 2)THENI1ID*<E*, 1, 62)=GL*< J) : J=K1 : NEXT: QOT0896 
$5© NEXT : GGTO310 

896 D9*=MID*<:Efc 2,2&y."\*$=m0$&$, 25, i> :B*t=CyD<£*) :Li=CVI(NG$> 
980 GQSUB5000:LFRINT" " 
31S NEXT I 
330 LPRINTTfiB<41) "TOTAL a i USING!*; FNRWKB2#> ; : IFB2#O8D0THENLPRINT J3$ : ELSELPRI 

NT" " 

335 IFL>6eTHENQOSUB4008 

940 LPRINT" ":L=L+2 

1200 IFL>S0THENGOSUB4000 

1210 LPRINT" "XPRINTTAe^JbTRING^Y, "*■') 

1220 LPRINTTfiB(20> "TOTAL "USINGTt; FNRD#<B1#> 

1230 LPRINTTfle(28)STRINQ*(2?i "*"> 

1240 LPRINTCHR* (12) : G0T026B 

3900 LPRINTSTRING$<2, 138): LPRINT"** PRINTING STOPPED **" :PR1NT:PRINT H ** PRINTING 

STOPPED #*" :GGSUB40: RETURN 
4003 N=N+l:L=10:IFF=lTHENLPRINTCHR*<i2> 

4610 LPRINTSTRING$<38, "-"> :LPRINT" " .LPRINTSTRING*<:7& 32) + ' F PfiGE ,! N:F=l 
4626 LPRINTTfiE(28)C2$: LPRINTTRBC28) "MQNTHLV TRANSACTIONS REPORT" : LPRINTTflB<26) "D 

ATE: "DTf; LPRINT J$ 
4030 LPRINT" ":LPRINTJi*; TRB<12) "DESCRIPTION", TAB<2?>; VB$; ThFaSS^AMOUNF' : LPRINT 

STRING* (88, "="> 
4040 RETURN 

4500 IFDK*= ,M, THENG0SUE!4000:GGTO4540 
4520 LFRINTThB(4:D "TOTAL "i USINGTf; FNRP#<B2#>: : IFB2#OBTHENLPRINTJ3*ELSELPRINT 



4525 L=L+1 : DK*=D0* : B2#=0 : I FFF=1THENRETURN 

4538 IFL>60THENGGSUB4000 

454S LPRINT" ": LPRINT"** "-J2*" "31" "Da*" "Vfi*" "T0*" **" 

4550 L=L+2:DK$=D0$ 
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4560 RETURN 

5069 IFOG0THENGOSUB4000 

5002 DU*=STR*fCVS iDR$ > ) : DU$=R I GHT4K "wm& "+R IQHT*< DU$, LENCDUt) -± > , € > 

5004 DU*=LEFT*<DU*, 2>+V"+MD:f CDU*.. 3:, 2) + V , '+RIGHT*(DU& 2> 

5010 LPRINTLL TRea@)D9$.i TRSC<3;T9*.; TRBOSODUJ; T%'<4y>USINGTJ; B#; ; LPR I NT JS$ ; 

5026 L=L+1 : 61#=Bi#+B# : B2#=B2#+S# ; J9*=" - : RETURN 

6600 IFLR=0THENPRINT3?O4, CHR$Ul>"** NO TKRNSRCTIONS TO ^RINT *-^ ■ GGSUB40 : GOSUB4 

Q:1H$= U 9": RETURN 
6085 IFPE£Ktl4312Xi28THEN6100 
6010 PRINT@704,CHR*C3i>"** PRINTER NOT REflDV **" : PRINT "> PRESS ■' ENTER" WHEN READ 

V, OR '<»' TO RBQRT "j :FL=1:G0SUB1B8: inN$="Ca"TH£NRETURN:ELS£6000 
6100 PRINT(?704,CHR*ai}" PRINTING. . ." : PRINT" iHQLD DOWN '3' KEY Tu STOP PRINTE 

R> " : P0KE16424, 67 : P0KE16425, 1 : RETURN 
7600 LPRINTCHR$':2,08:j:LPRIHT"** PRINTING STOPPED **" :PRINT@8fe3, "** PRINTING STO 

PPED **":GOSUB40: RETURN 
SO00 LPRINT" ii :IFnF=iTHENS106ELSECLS:PRINT(?i2S,TRSa5> li ** POSSIBLE SYSTEM MfiLFUN 

CTION ** 
8020 PRINT" 

THERE IS fl P0S5IBLITV THRT SOME OF THE DfiTR HAS LOST., DUE TO ft 

HARDWRRE MALFUNCTION. THE PROGRAM WILL NQU TEST ITSELF 

IF NO DATA WAS LOST, R CORRECT "; 
3020 MF=l:PRINT"REPORT iJILL BE PRINTED 

AND PROGRAM WILL CONTINUE, STAND BY. 
S076 LPR I NTCHR$< 12) : Bi#=6 : B2#=0 : DK*= " " : N=u : L=66 : £$=BL$ : F=0 : FF=0 : GQSUB48 : GCTC230 
S100 CL5:PRINT" 

THERE IS A DEFINITE LOST OF DRTA. VOU MUST RETURN TO YOUR LRST 

COMPLETED MONTH, AND REDO ALL OF THIS MONTH'S DRTA. VOU CAN USE 

THIS MONTH'' S PRINTED REPORTS TO QUICKLY REDO THE DOCUMENTS FOR 

THIS MONTH 

3110 PR INT "PLEASE REMOVE AND ERASE THESE DISKS, AND INSERT YOUR 
DISKETTES FOR THE LAST COMPLETED MONTH. 

(PRESS "ENTER" TO RETURN TO TRSDOS) ", 
3170 INPUTS* : CLOSE : CLS : CND"S" 
3306 RESUME 
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1 ■' "INCOME" — GENERAL LEDGER 1. 1 FEBURRV 1979 

2 ' ** COPVRIGHT (C) 1979 TANDY CORP. , ALL RIGHTS RESERVED ** 

13 CLEhR:CLOSE:CLEAR8808:DEFINTI-N:DIM6L$<101), Iltt,H& W,I«LX:CLS:GQSUB38:BL*=STRI 

NG$<£3, 0):I=0 
15 B=<*H37E1) : K=I : FORI=1T0161 : GL*C I >=BLS : POKEB, K : NEXT : I=FR£(BLS> : FGKEB, K : GOTG180 

39 PRINT0S2, "+* INCOME STATEMENT **": RETURN 

40 FORXX=1TO1000: NEXT : RETURN 

50 FL=l:GOSUB100:IFIN$="V"ORIN*= ,, N i 'THENR£TURN 

52 PRINTCHR*<8), :G0T050 

100 IN*=" " : H*=INKEV* : 14=14 : ND=0 : MS=HD : WLX=WD : IFFL=MDTHENFL=1 

195 PRINTSTRING$<flBS<FL), 136); STRING$<ABS<FL), 24); 

110 PRINTCHR$(U)j :F0RW^=lT025:W*=INKEY*:IFW$O""THEN115ELSENEXT:PRINTCHR*<15)j :F 

0R!4?i=iT025 : U*=I NKEV* : I FHfO " " THEN115ELSENEXT : G0T0118 
115 PRINTCHRtCN); : IFRGS<FL)=WLXTH£N125ELSEIFFL>0ANDN*>=" "flNDW*<="Z"T>EN170EL5EI 

FFLCOANDW*) V'ANDHK" : "THEN170 
117 IFW*=", "THENPR1NTU*; : WLJJ=WLX+1 : G0T0175 
120 IFH*= U . "RNDWD=GTHENND=i:GOTO170 
123 IFCW*="""ORW*=' , +")ANDWS=0RNDWL/i=0THENNS=l;GOTO17e 
125 IFW*OCHR$f:8)THEN150ELSEIFHL';=0THEN110ELSEPRINTCHR$<24); : IFFO0THEN135ELSEIF 

PEEKC1641S)=44THEN140 
130 IFPEEKa£418)=46THENND=0:GOTO135ELSEIFPEEKa641S)=43ORPEEK<1641S)=45THEHWS=0 
135 IN$=LEFT*aN$, LEN<IN*>-1> 

149 tlL/i=WLK-l : P0KElb41S, 136 : GOTOilS 

156 IFW$=CHR$a , 4>THENPRINTSTRING$a4L;;, CHR*<24) >, : GOTO130 
155 IFW*<>CHRt<13)THEN110ELSEPRINTSTRINGi<:HBS<FL)-WLK,32)j 
160 PRINTCHRfaS); : HK=25 : NEXT : RETURN 
170 PRINTW*; :IN*=IN*+M*:WLK=WLK+1 
175 IFfiBS<FL)=lTHEN16@ELSE110 

150 ONERRORGOTO9908:GPEN"R ! ',2, "GLMASTER:!" :PRINT£45S, "READING ACCOUNTS. . h :K1=10 

3 
185 FIELD2, 63AS fi*<0>, 63HS A£<i:s,63fiS Rf <2), 63AS N*<3> 
190 FIELD2..2AS S*C6)j 61ASV$, 2RS B*<1), 61ASV*, 2A5 8$<2>, S1ASV$, 2AS B*<3) 
195 F0RI=1T025:G£T2, I : J=<I-i)*4+i 

200 FORK=0TO3 :S=CVI (B*0O ) : IFB=0THENK1=J+K-1 : K=3 : 1=25 :G0T02i0 
2S5 MIM<eL*CJ+K>* I- 63)=H*<K> : PRINT0522, "ACCOUNT : "B; 
216 NEXTK, I : OPEN"R", 1, "CTRL" 
213 FIELD!, iRSVfc 26RS A9$, 167flSV* , 20AS B9* 
216 J=l : F0RI=2TG4 : GET!, I : CA$<J?=A9$ : Cfl*< J+1)=S9* : J=J+2 : NEXT 
223 FIELD!, 4AS D8& 3SAS C2& 10AS Fit, 4RS DS*, 2AS MF*, 77AS F3$, 2RS LS*, 4fiS FBS, 6fi 

S FA*, SRS HP*, 2AS LR*, 10AS FD$, 2AS KSS, 2AS NF$, 2flS WR$, 2fiS NS* 
225 GETl J l:KUt=LEFTt<KS^l):LS=CVI<LS*):XU#=0:XV#=0:Dt*=STR*^C , 1 ifS<D8*>) 
230 DT?=RIGNT$("00000"+RIGHT$(DT$, LEN<DT$)-i>- 6) :DT*=LEFTf <DT?, 2) + "/ ,, -vMID$f:DT^ 3 

,2>+"/"+RIGHT$<DT$;2) 

232 DEF FNRPtKA#)=lD-2*INT<A#*iD2+5D-l; 

233 T$="##, ###, ###. ##-" : U$="####. #" 

235 CLS:PRINTTAB<13X2*:GOSUE30:PRINTTHBaB)"DHTS; "DT3 

249 PRINT@25£,CHR$ai)"> ENTER ENDING DATE FOR PERIOD MM/DD/W <!'(?' TO EXIT?? ' ! ; 
245 FL=8 : GOSUBIOO : IFI Ht= " "THEN IN$=DT£ : PR INTSTR I NG$ <LEN< IN$ ), 24 >.; I US- : G0T0235ELSE I 

FlN$0"ia ,, TH£N255 

250 PRINT:PRIHT" RETURNING TO PIASTER MENU. . . " :CLGSE:RUN"GL" 
255 GOSUB2O00: IFER=1THEN248ELSEDP*=IN$ 

280 N=0 : L=66 : BM#=8 : BC#=8 : EV#=9 : BP#=S : BR$=0 : Bl#=& ; B2#=8 : I C=S : CK*= H " : NS=CV I < NS* ? : S 
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N#=0:SY#=0:CC*= !l " 

285 F=9;POKE16424,6?:POKElb425 J l:GOSUB3068:IFINf="(a"TH£N240ELSEPRIfJTS32S,CHRtai 
V PRINTING... ":PRINT" <HOLD DONN 'S' KEY TO STOP PRINTING) 

296 FORI=1TOK1:IFCVKLEFT*<QL*<D J 2»>2939THENI1=I:I=K1:HEXT:GOTO350 

346 NEXT:PRINT:PRINT"** NO ACCOUNTS IN THE P&L GROUP < 2600—9938) ** u Grt£UB40GO 
TO250 

35@ E$=EL$ : £N#=S : SY#=6 : FQRI=IiTOK± 

368 12=1 :MID$(Efc i, 63)=GL*<I> : IFMID$<E$, 52, iK>"l"THEN38@ 

„<?0 SN#=SN#+CVD< MID* <E$ , 44, 6) ; : 5V#=SV#+CVD C MI D*< E $> 26, 8 1 > 

380 NEm 

390 F0RI=I1T0K1 

400 MI[)*<E*/l,63>=GL*a):CN#=CVD(MIDt<E*M4,8)):VT#=nVDff1ID*^E*.26,8>)-PC=0-PV=0 

:NK=CVKLEFT*<E*, 2>) :D0*=fUD*<E$, 3, 20) :flC*-MD*<E$, 25, 1) 
410 IF5N#O8THENPC=10e+CN#/SN# 
420 IFSY#OSTH£NP¥=10S*YT#/SY# 
430 IFNKQ6THEN458 
440 I=K1:GOTO5?0 
450 IFMQ*<E$, 52, 1)=CC$THEN542 
460 IFCK$= ,,M G0TO51ti 
436 GOSUB4000 
43S L=L+3:BC#=B:B1#=0 

510 IC=VflL<MIDt(E*. 52, 1>> ;CU*=Cfl*CIC> :CKt=CU*:CC*=ni&*<E*> 52, V> 
520 IFl>60THENGOSUB5880 

538 LPRINTTRB(10)STRING$(LEN<CK$>+6, " + "> :LPRINTTRB<10)"** "; CKt; " +*" :LPRINTTRB< 

10>hTRING$aEN(CK'J)+6, " + "> :L=L+3 
535 1 F INKEY$= ,; @ " THENGG9JB2500 : G0TG248 
542 PC=8:PY=0 

544 I FSN#O0THENPC=1@6*CN#/SN# 
546 IFS¥#08THENPY=188+YT#/SY# 

550 LPRINTNfcTflB(6)D0t;TflB<33)USINGTt;FNRD#CCNtt>; :LPRINT" "; :LPRINTUSINGUfc PBS<P 

C>.; :LPRINT" ".; UblNGTS; FNRD#(VT#>, :LPRINT" ".; :LPRIMTUSINGUS; RB'^PYj 

551 IFINKEVt="e"THENGOSUB259e:GOTO240 

552 IFCCf O "1 "RNDCCtO N 2 !l THEN568 
554 XU#=XU#+CN# : KV#=XV#+VT# 

560 L=L+i : BC#=BC#*CN# : Bi#=Bl#+VT# : EP#=BP#+CN# : ER#=ER#+YT# 
562 IFflC*="E"TKEN5£S 

564 Si#=Si*+CN#:S2#=S2#+VT#:GOT0 578 

565 S3#=S3#+CN# : S4#=54»+S'T# 
578 IFL>60THENGOSUB5988 
588 NE>vTI 

?0@ GOSUE 4600 

718 IFO68TKENGOSUB5038 

728 PC-8 . PV^S : Pi-0 ; P2=u : r 3-0 : F'4=8 

738 IrSN#O8THENPC-180*BP#/SN# 

rs2 IF£N#=0THEN73b 

734 Pi=100*Si#/SN#.: P3=160*S3#/SN# 

736 IFSY#=8THEN,'"40 

738 P2=iS0*S2«/?V# : p4=i0S*S4#/SV# 

740 IFSV#<>3THENPV=i00*BR#/'SY# 

745 LPRINT" " ;LPRINTTflB(20> ,, TCTRL INCOME "; USINGTS.; FNRMKS1*;; :LPRINT" ";:LPRINT 

U5INGU*. RBSCPi;, .LPRINT" "; USINGTt; FNRD#<S2#)i :LPRiNT" "; :LPPINTUSINGU*;fl 

BSCP2) 
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747 LPRIKTTflB<20> o TOTflL EXPENSE"; USINGT*; FNRD#<S3#>; :LPRINT" "; :LPRINTUSINGU*i FIB 
S<P3>; :LPRINT" ";US1MGT*;FNRD#<S4#); :LPRINT" "j :LPRINTU5INGU*;RBS<P4> 

750 LPRINT" ":LPRINT"N£T PROFIT (NEGATIVE NO. = LOSS) "; USINGTfc -1*FNRD#<BP#>; :L 
PRINT" u i :LPRINTUSINGU$;flBS<PC>; : LPRINT" "; USINGT*; -1*FNRD#(BR#); :LPRINT" 
"} :LPRINTUSINGUfcflBS<PV> 

760 LPRINTCHR*<12) 

300 PRINT8384, CHR$G1>" INCOME STATEMENT COMPLETE. ":PR1NT"> END OF MONTH <YES/N 
G>? H ;:FL=3:GOSUB108:Vt=IN* 

818 IFY$="Y£S"THEN90O 

320 IFY$="NO"THEN250£LSE8O0 

309 PRINTC-512, CHR$<31)"> END OF VEAR ALSO <YES/NQ>? *i :FL=2:G0SUB100:V7*=IN* 

901 IFY7*C-"VES"RNDY7$O"NO"THEN300£LSEPRINT 

992 MF=CVKMFt) 

90S IFV7$="N0"THEN9S9ELSEIFV7*= N VES"ANDMF>=ilTHENMF=-l : LS=6 : G0T0309 

364 PRINT0576,CHR$<31>"** THIS IS ONLV FISCAL MONTH NUMBER"; MF+1:PRINT"> ARE VOU 
SURE VOU I4RNT A VEAR END CLOSING CYES/NO)? "; :FL=3:GOSUB100:G7*=IN$ 

905 IFQ?$O"YES"ANDQ?*O"NG"THEN904 

906 IFQ7** U NO U THEN980 

907 IFG7t="VES"TH£NMF=-l : LS=0 : V7*=Q7* 

903 PRINT0576, CHR$Oi) " OPDfiTING ACCOUNTS. . . " : MF=MF-H 

316 F0RI=1T0I1 

920 «ID*<E* J 1. 63)=GL*(D : IFLEFT*(E$, 2)ONP*TKEN1O00 

320 19=1 : MID* <E*, 44, 8>=MKD*<;BR#> :MID*<E*, 26. 8>=MKD*<BR#> :MID$<GL$a9), 1, 63) =E* : I 

= 11 
948 IFV7*O"VES"THENl@0S 

950 MID$<E$, 44, S^MKDtCS) :MID*<E*, 26, 8>=MKD*<0) : GL$U9>=E* 
960 F0RJ=1T0I1 

970 MIDt(Et f 1, 63>=GL*CJ> : IFLEFT$<E$, 2>ONR$THEN390 
975 Al#=CVEKMID*<Et, 44, 8))+BR#:fl2#=CVD01ID*<:E**£&8?)+BR# 

9S0 MIM<E*.44.8)=Hta>*<fll#>:l1ID*<E*/£&8)=t1KM<flStt):niD*<QLt<J>,l/63>=E*:J=Il 
390 NEXTJ 
100O NEXT I 

1018 F0RI=1T0K1 : MID$CE$, 1, 63)=GL*< I > 
1630 MID$<E$, 23, 2>'=MKI*C@> : MID$<£*, 34, 8-)=HID*<E& 44, 3) :MID*<E*, 44, S)=MKD$(0) :MID 

*<Efc 53, 2>=NKI*<0> : IFV7*= n VES"RNDI>IlTHEN MD*(E*, 26, 8>=MKW<0> 
104O MID*CGL*<I>, i,63>=E* 
1050 NEXT I 

1100 L5ETMF$=MKI$(MF> : IFY7$= , 'NO' ! THEN1170 
UIO M=VRL<LEFT*<DT$,2.0:MV=VRL';RIGHT$<DT*,2)>:MM=MM+1 
1120 IFMM>12THENNf1=l:MV=MV+l;IFMV>93THENMy=0 

1130 HM*=STR*<MM> : HV*=STR*tMV) : IFLEN<!1V*)=2MV*=" 0"+RIGHT*(MV*j 1) 
1140 IFUEN(MH*)=3MM$=RIGHT$(MM* J 2) 
1150 IFLEN':htVt)=3MVf=RIGHTf(hlVf J 2) 
1160 LSETDS*=MKS*<VflL<MM*+ H ei"+HV*)) 
1170 LSETFfl*=STRING*<& CHR*<8)) 
1130 LSETLR*=MKI*<:a>:LSETLS*=MKIt(LS):PUT 1,1 
1500 ONERRORGOTO3300 : IFKK180THENK1=K1+1 : GL*<K1)=BL* 

15S2 J=i+INT<<K1~1.V4>:FIELD2,63AS A$<0>, 63R5 R$<l),63flS A$<2},62AS A*(3> 
1504 FORI=lTOJ:K=a-l)*4+i:FORL=0TO3:LSETA$CL>=GL$<K+L):N£KT 
1506 PUT2, I : NEXT 
1520 PRINT" UPDATE COMPLETE. 
1530 PRINT07O4,CHR$ai)"> DO VOU &JISH TO PRINT A BALANCE SHEET <Y/H>? "> 
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154@ GOSUB56: IFIN$="N ,, THEN£50ELSECLOSE:RUfJ N GLBf : iLSHT ! ' 

2800 ER=S: IFLENaN$)OFLTHEN2059ELSEMf1=VflLaEFT*aN$, 2>) :M0=VRL<I1IMCIN*, 4. 2» :M 

V=VflL<RIGHT*(IN*,2>> 
2010 IFMM<10RNM>120Rt1D'aORMD>ilORniDt<IN*, 3, 1)+HID*(IN*, 6, 1X>V/"TH£N2050 
2920 IFMV<@ORNV>39THEN2@50 
2625 MX=31 : ONHNGOTO2028.. 202?.. 2023, 2926, 2928.. 2626, 2028. 2628, 2026, 2028. 2026, 2028 

2026 MX=38:GOTQ2028 

2027 MX=28: IFIW4=INT<tfV/ : 4>THENriX=i1X+i 
202S IFMfK=MXTHENRETURN 

205S ER*>1: RETURN 

2500 LPRINTSTRING*<2,138):LPRINT H ** PRINTING STOPPED **" 

2510 PRINT"** PRINTING STOPPED **":GO5U640: RETURN 

2008 IFPEEKa4312K128THENRETURN 

S01@ PRINTC<328.. CHR$ai>"*# PRINTER NOT REfiDV *+ 

3020 PRINT"> PRESS 'ENTER- WHEN REflDVj OR '<?' TO fiBORT"; :FL=i 

S030 GOSUB160: IFINt="(a"THENRETURNELSE3000 

4000 PC=O:PV=0 

4010 IFSN#O0THENPC=100*BC#/SN# 
4020 IFSV#O0THENPV=100*Bl#/S , T i # 
4848 LPRIMT" " rLPRINT" ** TOTAL "; CK*;TflB(23)USINGT*jFNRD#<BC#)i :LPRINT H "; :LPRI 

NTUSINGU*;flBS<PC>; :LPRINT" "; USINGTt; FNRD*KB1#>; :LPRINT" "i -LPRINTUSIN6U* 

;flBS(PY):LPRINT u ":L=L+1 
4042 IFL>60THENGOSUB5008 
4645 IFCCK>"2"THEN 4210 
4060 PC=0:PY=8 

4870 IFSN#O0THENPC=100*XIJ#/SN# 
4089 IFSV#O9THENPV=100*XV#/SV# 
4030 IFL>60THENGOSUB5088 
4188 LPRINT" ":LPRINTTAB(21)"GR0SS PROFIT"; TfiB<33)USINST*.;FNR[>$KXU#X; : LPRIMT" "; 

:LPRINTUSINGUfcflBS<PC); :LPRINT" ";USINGT*;FNRD#<XV*Jj :LPRINT" "; ;LPRINTUS 

INGU$;RBS(PV>:LPRINT" " 
4110 L=L+2 
4280 KU*="N" 
4210 RETURN 

5880 N=N+1:L=10: IFF=1THENLPRINTCHR$<12) 
50S5 F=1:LPRINTSTRING$<80, "-"RLPRINT" " 
5018 LPRINTSTRING$<70, 32); "PRGE"N:LPRINTTfiB(20>C2$:LPRINTTftB<28>"INCOME STfiTEMEN 

T"; STRING*<26> 32); "DATE: "DT$ 
5820 LPRINTTAB(20>"PERIOD ENDING: "DP$:LPRINT" " 

5030 LPRINT"ACCT DESCRIPTION"; TAB<38) "CURRENT '/. VEflR-TO-DflTE V." 

5840 LPRINTSTRING$<88, "=") 
5850 RETURN 
9980 RESUME 
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1 ' "GLBALSHT" — GENERAL LEDGER 1 1 FEBUfi-RY 1973 

2 ' ** COPYRIGHT <C) 1373 TANDY CORP. , ALL RIGHTS RESERVED ** 

10 as : CLOSE : GOSUB38 : CLERRS800 : DEFINTI-N : DIMGL$<101>, IN*, ti$, U, ULK : BLS=STRING*<63 

15 B=<«H37E1) : K=l : FQRI=1T0101 : GL*<I)=BL$ : PGKEB, K : NEXT : I=FRE<BL$) : POKEB, K : GOTO180 

30 PRINT082, '*** BALANCE SHEET **": RETURN 

4@ FORXX=1TO1008: NEXT: RETURN 

50 FL=1:GOSUB100: IFIN*="V"ORIN$="N"THENRETURN 

52 PRINTCHR*<8>; :GGT058 

106 IN$=" " : W*=INKEY$ : W=14; UD=0 : WS=WD : WL»WD : IFFL=WDTHENFL=1 

105 PRINTSTRING$(RB5<:FL), 136); STRING* (ABSCFL), 24); 

110 PRINTCHR*<W); :FORWJJ=1T025:H*=INKEW!: IFW*0"'THEM115ELSENEXT:PRIMTCHR*<15>i :F 

ORW?!=1T025 : W*=INKEY$ : IFW*0" "THEN115ELSENEXT : GOTG118 
115 PRINTCHRKW); : IFRBSCFL^idLKTHEN^SELSEIFFL^ANDH*^' "RND14$<="Z"THEN170ELSEI 

FFL<0flT©W»> V"flNC*l*<" : "THEN178 
117 IFW*="j "THENPRINTHfc : H_K=WLS!+1 : G0TG175 
120 IFW*=". "fiNDI*iD=0THENWD=l:GOTO170 
122 IF<U**"- H 0RW*="+" )ANDWS=0AND(«ILK=0THENWS=1 : GOT0179 
125 IFW*OCHR*(8)THEN150ELSEIFWL^=0THEN110ELSEPRINTCHR*<24>j : IFFL>0THEN135ELSEIF 

PEEK < 16418 > =44THEN148 
OS IFPEEKa6418)=46THENI4D=0:GOTG135aSEIFPEEKtt6418)=43ORPEEK<:i6418)=45THENWS=8 
135 IN$=LEFT$<IN$, LENCIN*)-!) 
140 \4LX=UL m A~l : P0KE1S41S, 136 : G0TG116 

150 IFW*=CHR*C24)THENPRINTSTRING*tULK,CHR*(24>>; :G0T018@ 
155 IFM*<>CHR*<:i3)THENlieEL£EPftINTSTRIHG*<fiBS<FL>-HLJi 32); 
160 PRINTCHR*<15); : MX=25 : NEXT : RETURN 
170 PRINTW*; : IN$=IN*+W$;idL?i=WLK+l 
175 IFflBS(FL)=lTHEN160ELSE110 
180 ONERRORGQTO9908:OPEN"R ,, ,2, "GLMRSTER:l":PRINTia453, "READING RCCOUNTS. . . ":Kl=i8 



185 FIELDS, 63RS fl*<8),63flS fl*<l),63R5 R*<2), 63AS fl$(3> 
190 FIELD2,2AS B*<0), 61ASY*, 2flS B$a>, 61RSY*,2R5 B$<2), 61A£Y$, 2flS B$<3) 
195 FORI=1T025:GET2, I:J=<I-1)*4+1 

208 FORK=8T03 : B=CVI (B*<K) > : IFB=0THENK1=J+K-1 : K=3 : 1=25 : GGTO210 
205 MID*<GL*(J+K>j 1. 63>=A$(K> :PRINT0522, "ACCOUNT: "B; 
210 NEXTK, I : GPEN"R", 1, "CTRL" : GET1, 1 

212 FIELD!, 4flS DS$, 38RS C2$, 127A5 MF*, 2RS NP$, 2RS NR*:DT*=STR*<CVS<D8*>) 
215 DT$=RIGHT$<"00@e8 1) +RIGHTf <DT$, LEN<DT*>-1), 6> :DT*=LEFT*<DT$, 2)+V"+f1ID$<DT$, 3 
,2)+V"+RIGHT$<;DT$,2) 

217 DEF FNRD#<A#)=1D-2*INKA#*1D2+5D-1) 

218 T$="##, ###, ###. ##-" 

228 N=8 : L=66 :H*="RSSETS" : G*="A" : Bl#=8 : B2#=S : B3#=8 : S$=" " : C#=8 : P0KE16424, 67 : P0KE16 
425,1:ES=BL*:F=0 

221 CLS:PRINTTRB(18)C2*:GGSUB30:PRINTTRB<1S)"DRTE: "DT$ 

222 PRINT(?256,CHR*C31>;TRB(3)"<S>INGLE PAGE BALRNCE SHEET 

"TfiB<9)"<T>W0 PAGE ASSETS « LIABILITIES 
H Tfle<9)"<IS> TO EXIT 

"TRB<3)"> ENTER SELECTION: "; 
224 FL=1 : GOSUB180 : IFIK*=" "THEN226ELSECN1+INSTR< "STS", IN*)GGT0226, 228, 229, 520 
226 PRINTCHR*(8>; :GOT0224 
228 FL=1:GOTG230" SINGLE PAGE 
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229 FL=B' TWO PAGE 

230 GOSUB3880: IFIN$="ii'"THEN220£LS£GO5U62000:GOSUB5818 
240 FORI=1TOK1:MID*(ES.. 1.. 63>=GL*(D 

£56 IFMID*<E*, 25, I)OG$THEN320 

260 IFL>60THENGOSUB5010 

265 IFS*=" D THENG0SUB4eee 

278 B#=CVD<MID$<;E$,26 J S)} 

275 IFINKEV$="£"THENGOSUB2508:GOTB228 

28S LPRINTCVKLEFT*<E*, 2)), " "; MWCE*, 3.. 2S), TflB<50)USINGT*; S# 

230 IFG$="A p, THENei#=Bl#+B# 

300 IFGf="L"THENB2#=B2#+B# 

310 L=LU:C#=C#+B# 

320 NEXT I 

330 IFL>60THENeOSUBS010 

360 LPRINT" ":LPRINT"TOTfiL "+H*;TflB<50>USINGT*;FNRD#<C#> 

365 LPRINT" ":LPRINT" " 

370 IFG*="L"THEN70BELSEIFG*="C' , THEN710 

380 GOSUB5808 ; H=£="LI ABILITIES" : G*="L" : S$=" " : C#=0 : GOTG240 

506 IFABS<fiBS<Bl#)-RBS(B3#)>C 083THEN5O5 

561 PRINT"** OUT OF BALANCE **":LPRINT" VLPRINT"** OUT OF BALANCE ** 

505 LPRINTCHR*<12) 

510 PRINT&640,CHR*<3i)"BALRNeE SHEET COMPLETE. " : G0SUB4S : GOTO220 

520 CLOSE ;RUN"GL" 

70S G$="C" : H$="CAPITRL" : C#=0 : GOTG240 

710 IFL>60THENGOSUB501@ 

730 B3#=C#+B2« 

73S LPRINT" " 

746 LPR1NT"T0TRL LIABILITIES & CAPITAL"; TRB^OJUSINGTS; FNRD#<B3*J) 

758 GOTO 500 

2086 PRINTe576,CHR*Gl):PRINT" PRINTING BALANCE SHEET. . . 

2010 PRINT" (HOLD DGUN '8' KEV TO STOP PRINTING) 

2026 PRINT0576, ; .RETURN 

2560 LPRINTSTRING$<2, 138): LPRINT"** PRINTING STOPPED **" 

2510 PRINTCHR»C31>"** PRINTING STOPPED **" :GC6UB40: RETURN 

3009 IFPEEK<14312)a28THENRETURN 

3010 PRINTe57S,CHR*<31)"** PRINTER NOT READY +*" 

3020 PRINT"> PRESS 'ENTER' WHEN READY, OR '@' TO ABORT"; :FL=i 

3030 GO5UB100: IFIN*="£"THENRETURNELSE3000 

4000 IFL>60THENGOSUB5080 

4610 L=L+3 : S*=G$ : LPRINTTfiB<3S)STRING$<LEN<H*>, " + - ) : LPRINTTR8<30>H$ : LPRINTTRBO0) 

STRINGS L£N<H*>, " + -): RETURN 
5809 REM "TOF" 
5065 IFFL=1TH£NR£TURN 
5010 N=N+l:L=10;IFF=lTHENLPRINTCHRf<12> 
5015 F=l:LPRINTSTRINGtCS0 J "~"):LPRINT" " 
5020 LPRINTSTRING*<70, 32>"PAGE"N:LPRINTTAB<20)C2* 
5825 LPR I NTTflB< 20 > "BALANCE SHEET" :LPRINTTR8<20>"DATE: "DT$ 

5030 LPRINT" U :LPRINT H ACCT DESCRIPTION"; TRB(54>"RM0UNT" :LPRINT5TRING$<30, "="> 
5040 RETURN 
5980 RESUME 



